StringGrid nach doppelten Einträgen durchsuchen

[Micha]

Ich hoffe mal mir kann bei meinem Problem wer weiterhelfen, bin leider noch net so fit in Delphi.

Ich lade eine Excel-Tabelle in ein StringGrid und möchte mir dann in einer Listbox die Werte ausgeben, die in einer bestimmten Spalte mehrfach vorkommen.

Wie ich nach einem best. String suche hab ich mir hier im Forum schon zusammengesucht:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var suchtext:string;
    r,c : integer;
    gefunden:boolean;
begin
   gefunden:=False;
   suchtext:=edit1.Text;
    if trim(suchtext) <> '' then 
     begin
      For r:=0 to StringGrid1.RowCount-1 do
       For c:=0 to StringGrid1.ColCount-1 do
        If (AnsiPos(LowerCase(suchtext),LowerCase(StringGrid1.Cells[c,r])) <> 0) then
         begin 
          gefunden:=True;
          zeile:=r+1;
           ShowMessage(inttostr(r)); 
           break; 
         end; 
      if not gefunden then MessageDlg('" '+suchtext+'" wurde nicht gefunden', mtInformation, [mbOK],0); 
     end; 
end;

Aber leider weiß ich nicht, wie ich mir die Schleife bauen soll, damit er mir die ausgibt, die mehrfach enthalten sind.

Ich hoffe, mir kann jemand weiterhelfen.

Vielen Dank im Voraus.