Vielleicht so:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
var
s: String;
begin
s := '';
if InputQuery('Suchen nach ...', 'Suchtext', s) and (s <> '') then
CopyRowsContaining(StringGrid1, StringGrid2, s);
end;
Bedenke, dass es bei meinem Ansatz um Vereinfachung geht. KISS - keep it small, simple! Was willst du mit einem FindDialog und zig Optionen, wenn du doch alle Treffer in einem zweiten Grid zeigen möchtest? Also ist mein Code als Ersatz und nicht als Erweiterung zu sehen.
Freundliche Grüße