procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
    c,i,j:byte;
    sign:boolean;
begin
   c:=0;
   s1:=inputbox('Enter String','Main String','');
   s2:=inputbox('Enter String','Sub String','');
   for i:=1 to length(s1)-length(s2)+1 do
   begin
      sign:=true;
      for j:=1 to length(s2) do
        if (s1[i+j-1]<>s2[j]) then
        begin
          sign:=false;
          break;
        end;
      if sign then c:=c+1;
    end;
    ShowMessage('Repeat='+inttostr(c)); 
end;