Doppelte Eintrage in StringGris loeschen aber wie?

[lucius]

Aaa der gute marabu, hallo

Ich hatte folgendes gedacht:

Delphi-Quellcode:

procedure TMainForm.Timer1Timer(Sender: TObject);
var
S1, S2: integer;
begin

while S1 < SG1.Rows.Count do
begin
  for S2 := (SG1.Rows.Count - 1) downto 0 do
  begin
    if (SG1.Rows.Count[S1] = SG1.Rows.Count[S2]) and (S1 <> S2) then
      StringGrid1.Rows[S2].Clear();
  end;
  inc(S1);
end;

end;