Удаление повторяющихся элементов

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  i,g,k:integer;
  d:boolean;
begin
  with dm2.DataModule2 do
    begin
      filtr1.first;
      i:=1;
      k:=0;
      for i:=1 to filtr1.RecordCount do
        begin
          d:=false;
          filtr2.First;
          g:=1;
          for  g:=1 to filtr2.RecordCount do
            begin
              if (filtr1.fieldbyname('ключ').AsInteger<>filtr2.fieldbyname('ключ').AsInteger) and
                 (filtr1.fieldbyname('фамилия').AsString=filtr2.fieldbyname('фамилия').AsString) and
                 (filtr1.fieldbyname('имя').AsString=filtr2.fieldbyname('имя').AsString) and
                 (filtr1.fieldbyname('отчество').AsString=filtr2.fieldbyname('отчество').AsString) and
                 (filtr1.fieldbyname('дата_рожд').AsString=filtr2.fieldbyname('дата_рожд').AsString) then
                    begin
                      k:=k+1;
                      if k>1 then
                        begin
                          k:=0;
 
                          filtr1.Delete;
                          d:=true;
 
                          break;
 
                        end;
                    end;
              filtr2.Next;
            end;
          if d=false then
            filtr1.next;
 
 
        end;
    end;
end;