Очень просто, смотри пример....
считаем, сто есть поле Edit1, в котором набираем текст, и ListBox,
в котором ищем нужную строку, (как в Нelp).
procedure
TForm1.Edit1Change(Sender: TObject);
begin
ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit1.text)));
end;
Взято
из http://forum.sources.ru