[Delphi] Wyszukiwanie wyrazu Pomocy !

Witam
Mam problemik, chodzi mi o to ze mam np wpisany jakis wyraz w labelu....np. kot i chce zeby sprawdził wszystkie pozycje w listBoxie w ktorym jest np wyraz "kota" chodzi mi o to zeby znalazło wlasnie ten item w ktorym bedzie "kota" wiem mniej wiecej jak to zrobic ale do pewnego punktu:

var
i:integer;
szukana, linia:string;
begin
for i:=0 to ListBox1.items.count-1 do
begin
linia:=ListBox1.items.strings[i];
szukana:=label1.text;
if linia[Length(linia)] = szukana then
begin

/// tutaj jakas funkcja

end;
end;

linia[length(linia)] - w tym jest bląd bo to pokazuje mi ostatnią litere itema, jesli komus by sie chcialo to pomózcie... :-)

POS(szukana,ListBox1.items[i]);

napisalem cos takiego:

var
s:string;
poz, i, a:integer;
begin
for i:=0 to ListBox1.Items.Count-1 do
begin
a:=POS(Edit2.text,ListBox1.items[i]);
showmessage(inttostr(a));
end;
end;

nie bardzo mi to pasuje :(
chodzi mi o to ze np wpisuje tekst (kot) do edita potem poprzez pętle sie sprawdzany ListBox ktory ma w jednej lini np (kota) i jesli znajdzie podobny ciąg znaków to zaznaczy ten item chodzi mi o to zeby np: w itemie kota znalazło "kot"

var
s: string;
i: integer;
begin
for i:=0 to ListBox1.Items.Count - 1 do
if Pos(Edit2.text,ListBox1.items[i])
then ListBox1.Selected[i]:=True
end;