2 процедуры, одна должна редактировать строку,а вторая добавлять строку.

[Иван09]

Пожалуйста, помогите, 2 процедуры, одна должна редактировать строку,а вторая добавлять строку.
в таблице 3 строки, к примеру в 1 строке записываю "11111", во 2 строке "222222",а в 3 строке записываю "333333".При просмотре показывает в 1 строке "2222222", во 2 строке "333333",а в 3 строке тоже "333333". Я недавно занялся изучением Delphi 7, что то в коде не так наверно, пробовал First, Last не помогало.Поправьте пожалуйста КОД чтобы ZAPTAB-редактировал строку, а APPTAB-lописывал к DBF. За ранее Спасибо Вам все большое!

procedure TForm4.ZapTab;
Var KStrOD:Integer;
    n:Integer;
    SKOD:String;
begin
KStrOD:=HalcyonDataSet1.RecordCount;
 for n:=1 to KStrOD do begin
  SKOD:=HalcyonDataSet1.FieldByName('K').AsString;
  HalcyonDataSet1.Next;
      If Form2.VKPac=SKOD then
      begin
      HalcyonDataSet1.Edit;
      HalcyonDataSet1.FieldByName('K').Value:=SKOD;
      if RadioButton1.Checked=True then HalcyonDataSet1.FieldByName('POL').Value:='1';
      if RadioButton2.Checked=True then HalcyonDataSet1.FieldByName('POL').Value:='0';
      HalcyonDataSet1.FieldByName('DATA').Value:=DateTimePicker1.Date;
      HalcyonDataSet1.FieldByName('RAION').Value:=Edit1.Text;
      HalcyonDataSet1.FieldByName('NPUNKT').Value:=Edit2.Text;
      HalcyonDataSet1.FieldByName('UL').Value:=Edit3.Text;
      HalcyonDataSet1.FieldByName('DOM').Value:=Edit4.Text;
      HalcyonDataSet1.FieldByName('KV').Value:=Edit5.Text;
      HalcyonDataSet1.FieldByName('TEL').Value:=Edit6.Text;
      HalcyonDataSet1.FieldByName('MRAB').Value:=Edit7.Text;
      HalcyonDataSet1.FieldByName('DOL').Value:=Edit8.Text;
      HalcyonDataSet1.FieldByName('OBRAZ').Value:=ComboBox1.Text;
      HalcyonDataSet1.FieldByName('SPOL').Value:=ComboBox2.Text;
      HalcyonDataSet1.FieldByName('FIOROD').Value:=Edit9.Text;
      If RadioButton3.Checked=True then HalcyonDataSet1.FieldByName('METSOOBR').Value:='1';
      If RadioButton4.Checked=True then HalcyonDataSet1.FieldByName('METSOOBR').Value:='0';
      HalcyonDataSet1.Post;
      Exit;
      end;
 end;
end;

procedure TForm4.AppTab;
Var KStrOD:Integer;
    m:Integer;
    SKOD:String;
begin
HalcyonDataSet1.Last;
KStrOD:=HalcyonDataSet1.RecordCount;
 for m:=1 to KStrOD do begin
  HalcyonDataSet1.Edit;
  SKOD:=HalcyonDataSet1.FieldByName('K').AsString;
  HalcyonDataSet1.Next;
      If Form2.VKPac<>SKOD then
      begin
      HalcyonDataSet1.Append;
      HalcyonDataSet1.FieldByName('K').Value:=form2.VKPac;
      If RadioButton1.Checked=True then HalcyonDataSet1.FieldByName('POL').Value:='1';
      If RadioButton2.Checked=True then HalcyonDataSet1.FieldByName('POL').Value:='0';
      HalcyonDataSet1.FieldByName('DATA').Value:=DateTimePicker1.Date;
      HalcyonDataSet1.FieldByName('RAION').Value:=Edit1.Text;
      HalcyonDataSet1.FieldByName('NPUNKT').Value:=Edit2.Text;
      HalcyonDataSet1.FieldByName('UL').Value:=Edit3.Text;
      HalcyonDataSet1.FieldByName('DOM').Value:=Edit4.Text;
      HalcyonDataSet1.FieldByName('KV').Value:=Edit5.Text;
      HalcyonDataSet1.FieldByName('TEL').Value:=Edit6.Text;
      HalcyonDataSet1.FieldByName('MRAB').Value:=Edit7.Text;
      HalcyonDataSet1.FieldByName('DOL').Value:=Edit8.Text;
      HalcyonDataSet1.FieldByName('OBRAZ').Value:=ComboBox1.Text;
      HalcyonDataSet1.FieldByName('SPOL').Value:=ComboBox2.Text;
      HalcyonDataSet1.FieldByName('FIOROD').Value:=Edit9.Text;
      If RadioButton3.Checked=True then HalcyonDataSet1.FieldByName('METSOOBR').Value:='1';
      If RadioButton4.Checked=True then HalcyonDataSet1.FieldByName('METSOOBR').Value:='0';
      HalcyonDataSet1.Post;
      end;
 end;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.