Kod:
var
c:integer;
begin
for c := 0 to Listbox1.items.Count -1 do// Bu döndü sahyesinden bütün itemleri kontrol edebiliceğiniz.
if Pos(Edit1.text,Listbox1.items.string[c])>0 then
Showmessage('Evet Böyle bir Kayıt mevcut');
//Burda ne yaptık?
//Edit1.text'te yazan stringi i döngüsü ile Listbox1'de arattık.
Böyle bi kayıt var ise 'Evet Böyle bir Kayıt mevcut' demesini istedik.
end;
end;