[Karsh]

вот функция, определяющая сколько раз строка num появляется в строке s:

Код:

function gg(num, s: string): Integer;
var
  tmp: string;
  x, l: Integer;
begin
  Result:= 0;
  tmp:= s;
  x:= Pos(num, tmp);
  l:= Length(num);
  while x > 0 do
  begin
    tmp:= Copy(tmp, x + l, Length(tmp));
    inc(Result);
    x:= Pos(num, tmp);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(gg(Edit2.Text, Edit1.Text)));
end;