znalezienie czegos w memo

Cześć. Chcę znaleźć dany tekst w memo i problem w tym że muszę wiedzieć w jakiej linii on został znaleziony. Np mam:

ania ma kota
ania ma psa
ania ma chomika
ania jest w ciąży

Chcę znaleźć słowo "chomika" więc powinno mi zwrócić że jest w linii 2 (po 1 linia to przecież 0). Jak to zrobić?

var
  i: Integer;
begin
  for i := 0 to memo1.Lines.Count - 1 do
    if (Pos('chomika', memo1.Lines[i]) > 0) then
      showmessage('znalezione w lini nr: '+inttostr(i+1)); 
end;

dzięki :D