Delphi Listboxt'ta String Arama

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;