[Delphi] Jak znaleźć łańcuch w memo?

WI!
Mam pytanie... Jak w memo odnaleźć jakiś określony łańcuch?
Tzn. jakby jego pozycję...

Powiedzmy, że w memo mam 2 wyrazy:
słońMrówka

I jak znaleźć łańcuch mrówka i jego pozycję(czyli w tym wypadku np. 4,0(pierwsza litera wyrazu)).
I jak się dowiedzieć, czy łańcuch istnieje, czy nie?

Jakoś tak:
var
X:integer;
begin
X:=pos(memo1.Text,'mrówka');
memo1.SelStart:=x-1;
memo1.SelLength:=Length('mrówka');
memo1.SetFocus; // Ustawia focus na Text

if pos(memo1.text,'mrówka')>0 then
begin
..... // Instrukcje jeżeli istnieje taki wyraz :-)
end;

[cygaro]