работа с excel в delphi.Выявить одинаковые строки

[betirsolt]

всем привет,импортирую таблицу из экзеля в свою прогу и хочу выявить одинаковые записи,у меня в одном столбце записаны фамилия имя отчество

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
index:=1;
 for k := 1 to setchik  do
   begin
    for j := 2 to  setchik do
      begin
       if stringgrid1.Cells[5,k]=stringgrid1.Cells[5,j] then
       begin
       for I := 1 to 19 do
         begin
           stringgrid2.Cells[i,index]:=stringgrid1.Cells[i,k];
         end;
         index:=index+1;
         for I := 1 to 19 do
         begin
         stringgrid2.Cells[i,index]:=stringgrid1.Cells[i,j];
         end;
         index:=index+1;
       end;
    end;
   end;
end;

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

[betirsolt]

ой кажется я сам догнал,надо было просто вот так

for j := k+1 to  setchik do

теперь вроде работает,4 часа сидел над этим и не мог понять,вот как всегда как только создам тему так сразу доходит до меня)))эта тема еще не закрыта ребята,нужна будет ваша помощь,буду очень благодарен