Im einfachsten Fall dann so:
Delphi-Quellcode:
procedure TForm1.SearchButtonClick(Sender: TObject);
var
searchText: string;
begin
searchText := '42'; // Initialisierung
if InputQuery('Suchen nach', 'Suchtext', searchText) and (searchText <> '') then begin
MarkFirstLine(ListBox1, searchText);
end;
end;
marabu