StringGrid nach doppelten Einträgen durchsuchen

[Niko]

Sollte in etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);

  function SearchString(Column: Integer; Str: String): Integer;
  // gibt die Anzahl der Fundstellen von Str in der Spalte Column zurück
  var
    r: Integer;
  begin
    Result := 0;
    if Trim(Str) <> '' then
    begin
      for r := 0 to StringGrid1.RowCount - 1 do
        if (AnsiPos(LowerCase(Str), LowerCase(StringGrid1.Cells[Column, r])) <> 0) then
          Inc(Result);
    end;
  end;

const
  Column = 1;  // Spalte, in der gesucht werden soll
var
  r: Integer;
begin
  for r := 0 to StringGrid1.RowCount - 1 do
  begin
    if SearchString(Column, StringGrid1.Cells[Column, r]) > 1 then
      ListBox1.Items.Add(StringGrid1.Cells[Column, r]);
  end;
end;