Нужно создать оконное приложение в делфи 7

Question

Дана строка, содержащая английский текст. Найти кол-во слов, начинающихся с буквы "b"

Мария · Accepted Answer

Создаем форму, бросаем на нее label1,button1,edit1 
на button1 вешаем обработчик ниже.. . 
 
procedure TForm2.Button1Click(Sender: TObject); 
var c,i:integer; 
A: set of char; 
B: set of char; 
begin 
A:=[' ','.',#255]; 
B:=['B','b']; 
c:=0; 
for i := 1 to length(edit1.Text) do if edit1.Text[ i ] in B then if (edit1.Text[i-1] in A) or (i=1) then inc(c); 
label1.caption:=inttostr(c); 
end;

Санёк Неугамонный · Answer

вот пример попроще: 
 
procedure TForm.ButtonClick(Sender: TObject); 
var k: string; 
i,a: integer; 
begin 
k:=edit.text; a:=0; 
for i:=pos('b',k) to length(k) do 
if k[ i ] = ' ' then inc(a); 
... 
end;