[The Shadow]

Код:

var
s: String;
Res: Integer;
begin
s:=Memo1.Lines.Text;
Res:=0;
while Pos(Edit1.Text, s) > 0 do
begin
Inc(Res);
Delete(s, 1, Pos(Edit1.Text, s));
end;
Label1.Caption:=IntToStr(Res);