weitersuchen im Stringgrid: Wie?

[ereetzer]

Hallo und Guten Morgen,

ich benutze folgenden Code zum suchen im StringGrid. Funktioniert auch ganz gut.
Nur die Sache mit dem weitersuchen bekommen ich nicht so recht hin.
Hat jemand eine Idee?

Delphi-Quellcode:

function SeekRecord(Grid: TStringGrid; suchtext: string): Boolean;
var
  Spalte, Zeile: integer;
begin
  result := false;
  for Zeile := 0 to Grid.RowCount do
    for Spalte := 0 to Grid.ColCount do
    begin
      if Pos(suchtext, Grid.Cells[Spalte, Zeile]) > 0 then
      begin
        Grid.Col := Spalte;
        Grid.Row := Zeile;
        result := true;
        MessageDlg('Der Suchbegriff "' + suchtext + '" wurde an folgender Stelle gefunden:' + #13 + #10 + '' + #13 + #10 + 'Zeile: ' + IntToStr(Zeile) + #13 + #10 + 'Spalte: ' + IntToStr(Spalte), mtInformation, [mbOK], 0);
        exit;
      end;
    end;
end;

cu
ereetzer