potrzebna pomoc przy funkcji

Potrzebna mi jest funkcja zliczająca podane frazy w konkretnym tekście (łańcuchu), czyli:

FUNCTION zlicz(fraza,tekst:string):integer;

Jak ją zrobić? Ja już różnie kombinowałem i nic.

To powinno zadzialac:

function FindText(key, txt : String): integer;
var
i: integer;

Lkey : Integer;
tmp : String;
Count :integer;
begin
count := 0;
LKey:=Length(key);
i:=1;
while i

Można też tak:
function Zlicz(Fraza, Tekst : String): Integer;
begin
Result := 0;
while Pos(Fraza, Tekst) > 0 do
begin
Delete(Tekst, Pos(Fraza, Tekst), 1);
Inc(Result);
end;
end;

Ps. Ta fukcja uwzględnia wieklość liter.