Delphi Listboxt'ta String Arama

PHP Kod:
var
c:integer;
begin

for c := 0 to Listbox1.items.Count -1 do// Bu döngü sayesinden bütün itemleri kontrol edebileceğiz.


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;