как поправить так что бы он переберал всю строку таблицы , и если  совпадения не найдено он дописывал строку в 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').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;
    HalcyonDataSet1.Next;
    end;
end;

Добавлено через 1 минуту и 18 секунд
  

Какой массив, кто он??? Данные в грид не добавляются - они добавляются в базу или датасет...
Используй кнопку КОД!
Научись формулировать мысли.

По коду - ты идешь в цикле по датасету и в него же добавляешь данные при этом. Зачем?