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

Пожалуйста, помогите, 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').A sString;
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').Valu e:=DateTimePicker1.Date;
HalcyonDataSet1.FieldByName('RAION').Val ue:=Edit1.Text;
HalcyonDataSet1.FieldByName('NPUNKT').Va lue:=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').Valu e:=Edit7.Text;
HalcyonDataSet1.FieldByName('DOL').Value :=Edit8.Text;
HalcyonDataSet1.FieldByName('OBRAZ').Val ue:=ComboBox1.Text;
HalcyonDataSet1.FieldByName('SPOL').Valu e:=ComboBox2.Text;
HalcyonDataSet1.FieldByName('FIOROD').Va lue:=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').A sString;
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').Valu e:=DateTimePicker1.Date;
HalcyonDataSet1.FieldByName('RAION').Val ue:=Edit1.Text;
HalcyonDataSet1.FieldByName('NPUNKT').Va lue:=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').Valu e:=Edit7.Text;
HalcyonDataSet1.FieldByName('DOL').Value :=Edit8.Text;
HalcyonDataSet1.FieldByName('OBRAZ').Val ue:=ComboBox1.Text;
HalcyonDataSet1.FieldByName('SPOL').Valu e:=ComboBox2.Text;
HalcyonDataSet1.FieldByName('FIOROD').Va lue:=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;

0

Вот это вот
стоит явно не в том месте кода.
А в целом код хоть и безобразен, но рабоч

1