Durch Befehl eine bestimmte Zeile im StringGrid markieren

[dopeline]

Morgen!

ich habe ein StringGrid in dem nur ganze Zeilen markiert werden können. mit hilfe eines stringvergleichs wirde das gesamte stringgrid (in einer schleife) nach einem bestimmten string durchsucht. an der steklle bleibt er dann "stehen".

Delphi-Quellcode:

procedure TFormHaupt.BitBtnSucheClick(Sender: TObject);
var suchtext:string;
    r,c:integer;
begin

 suchtext:=editsuche.Text;
 if suchtext='' then else
 begin
  For r:=0 to StringGrid1.RowCount+1 do
  For c:=0 to StringGrid1.ColCount+1 do
    If (StringGrid1.Cells[c,r]=suchtext)  then
      begin
          ShowMessage('Eintrag in Zeile '+InttoStr(r+1)+' gefunden!');   break;
      end; end;
end;

nun soll die gesamte zeile markiert werden, in der er steht. (statt dem showmessage)
wie mache ich das?


Gruß, dopeline