Mit einer Inputbox in einer Listbox suchen

[spaceball]

[delphi]

var
Suchbegriff: string;
begin

Suchbegriff:=InputBox('Suche ', 'Gib einen Suchbegriff ein.', '');
ListBox1.ItemIndex := ListBox1.Items.IndexOf(Suchbegriff);
end;