Delphi строки

[vVladislav]

1) Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.
2) Дана строка. Определить, сколько в ней символов «*», «;», «:».
Помогите пожалуйста...

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i,n:integer;
begin
   s:=' '+Edit1.Text;
   n:=0;
   For i:=1 to Length(s)-1 do
      If (Copy(s,i,2)=' b') or (Copy(s,i,2)=' B') then
         n:=n+1;
   Caption:=IntToStr(n);
end;

procedure TForm1.Button2Click(Sender: TObject);
var s:string;

   function CountC(c:char):integer;
   var i:integer;
   begin
      Result:=0;
      For i:=1 to Length(s) do
         If s[i]=c then
            Result:=Result+1;
   end;

begin
   s:=Edit1.Text;
   Caption:=Format('* - %d     ; - %d     : - %d',[CountC('*'),CountC(';'),CountC(':')]);
end;