Поиск в delphi7

[tanja_K]

Добрый день, подскажите пожалуйста поиск по ListBox. Необходимо сделать словарь (по терминам), а поиск должен быть не только по первым буквам (например: "Хорошая погода" - выводит все понятия со словом "погода").
Кто-нибудь помоги

[Stilet]

with ListBox.Items do begin
 for i:=0 to Count-1 do
   if pos('погода',Strings[i])<>0 then begin
    выводим Strings[i];
   end;
end;

[tanja_K]

а где это прописывать? а то я не знаю)