дописывал строку в Dbgrid

[Иван09]

как поправить так что бы он переберал всю строку таблицы , и если совпадения не найдено он дописывал строку в Dbgrid, а если найдено совпадение выходил из процедуры нажатия кнопки?

У меня такой код:

procedure TForm4.InsTab;
var SKOD:String;
begin
HalcyonDataSet1.First;
while not HalcyonDataSet1.Eof do
begin
SKOD:=HalcyonDataSet1.FieldByName(' K').AsString;
If Form2.VKPac=SKOD then
begin
Abort;
end
else
begin
HalcyonDataSet1.Insert;
HalcyonDataSet1.FieldByName('K').Va lue:=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').V alue:=Edit3.Text;
HalcyonDataSet1.FieldByName('DOM'). Value:=Edit4.Text;
HalcyonDataSet1.FieldByName('KV').V alue:=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('METSOO BR').Value:='1';
If RadioButton4.Checked=True then HalcyonDataSet1.FieldByName('METSOO BR').Value:='0';
HalcyonDataSet1.Post;
end;
HalcyonDataSet1.Next;
end;
end;