Suche nach Teilstring in einem Stringgrid

[Bummi]

Delphi-Quellcode:

Function FindInGrid(G:TStringGrid;var StartPoint:TPoint;Const Search:String;Next:Boolean):Boolean;
var
 R,C:Integer;
begin
  Result := False;
  for r := 0 to G.RowCount - 1 do
    for C := 0 to G.ColCount - 1 do
      begin
         IF Pos(Search,G.Cells[C,R]) >0 then
          if (not next) or ((r*G.ColCount + C) > ( StartPoint.y * G.ColCount + StartPoint.x )) then
              begin
                Result := True;
                StartPoint.y := r;
                StartPoint.x := c;
                EXIT;
              end;
      end;

end;
procedure TForm2.Button1Click(Sender: TObject);
var
 p:Tpoint;
 Next:Boolean;
begin
  p.X := 0;
  p.Y := 0;
  Next := False;
  while FindInGrid(StringGrid1,p,'Hallo',Next) do
    begin
      Next := True;
      Showmessage(StringGrid1.Cells[p.X,p.y] + Format(' Col: %d, Row: %d',  [p.X,p.y]))
    end;
end;