Doppelte Eintrage in StringGris loeschen aber wie?

[lucius]

Erstmal Guten Abend an alle.
Ich habe ein StringGrid das gefuellt wird mit Daten, jetzt moechte ich mittels einen Timer Doppelte Eintraege im SG loeschen, geht sowas?
Mit einer Listbox gehts:

Delphi-Quellcode:

procedure TMainForm.Timer1Timer(Sender: TObject);
var
D1, D2: integer;
begin

while D1 < listbox1.Items.Count do
begin
  for D2 := (listbox1.Items.Count - 1) downto 0 do
  begin
    if (listbox1.Items.Strings[D1] = listbox1.Items.Strings[D2]) and (D1 <> D2) then
      listbox1.Items.Delete(D2);
  end;
  inc(D1);
end;

end;

Vielleicht gut zu wissen die StringGrid hat 5 Cols und 5 Rows.
Danke im voraus.