Проблема с составлением цикла

[artemavd]

У меня семь пятниц на неделе. Вот сейчас переделал код на вот такой:

procedure TForm8.BitBtn8Click(Sender: TObject);
var
 i,k,l,m:integer;
begin
 i:=1;
 while Form8.StringGrid1.Cells[1,i] <> '' do begin
  if Form12.Table1.Locate('Fam_jur;Imy_jur;Otche_jur',VarArrayOf([Form8.StringGrid1.Cells[1,i],
                                 Form8.StringGrid1.Cells[2,i],Form8.StringGrid1.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then
  begin
   Form12.Table1.Insert;
   Form12.Table1.FieldByName('Fam_jur').AsString:=Form8.StringGrid1.Cells[1,i];
   Form12.Table1.FieldByName('Imy_jur').AsString:=Form8.StringGrid1.Cells[2,i];
   Form12.Table1.FieldByName('Otche_jur').AsString:=Form8.StringGrid1.Cells[3,i];
   Form12.Table1.Post;
   Form12.Table1.Refresh;
  end;

  begin
   Form12.Table2.Insert;
   Form12.Table2.FieldByName('Chetvert_jur_2').AsString:=Form8.StringGrid1.Cells[2,28];
   Form12.Table2.FieldByName('Predm_jur_2').AsString:=Form8.StringGrid1.Cells[2,29];
   Form12.Table2.FieldByName('Klass_jur').AsString:=Form8.StringGrid1.Cells[4,28];
   Form12.Table2.Post;
   Form12.Table2.Refresh;
  end;

//всё что выше работает отлично. Непонятно с кодом ниже...
 for k:=1 to 2 do
  if Form8.StringGrid1.Cells[4,i] <> '' then
  begin
   Form12.Table3.Insert;
   Form12.Table3.FieldByName('Data_jur_2').AsString:=Form8.StringGrid1.Cells[4,0];
   Form12.Table3.FieldByName('Mark_jur').AsInteger:=StrToInt(Form8.StringGrid1.Cells[4,i]);
   Form12.Table3.Post;
   Form12.Table3.Refresh;
  end;
 Inc(i);
 end;
end;

Результат работы этого кода показан во вложении. Вопрос: какое условие надо добавить, чтобы в таблицу jur_3 не заносились два раза строчки? Там должны быть только две строчки, т.к. два человека.

[vovk]

 for k:=1 to 2 do

сколько раз цикл будет работать столько раз записи м будут попадать

[artemavd]

сколько раз цикл будет работать столько раз записи м будут попадать

Тогда так чтоли:

for i:=1 to Form8.StringGrid1.RowCount - 1  do

???
Всего максимальное количество заполненных строчек не будет превышать 25.