FindDialog???

[Piro]

Danke für die schnelle Antwort.

Delphi-Quellcode:

procedure TForm1.btnsuchenClick(Sender: TObject);
var
 i:integer;
 suchtext: string;
begin
 if FindDialog1.Execute then
 begin
     suchtext := FindDialog1.FindText;  // bleibt leer obwohl ich den Suchtext eingebe
     for i:=0 to SringGrid1.RouCount -1 do
     begin
         if StringGrid1.cells[0,i] = suchtext then
         begin
             ShowMessage('gefunden');
         end;
     end;
 end;
end;

Ja irgendwie passiert nichts. Das hatte ich dauernd. Warum?