procedure Button1Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  SC,i,q,k,SP:Integer;
  S,SFind,Ss:String;
  B:array [1..50] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=0;
SC:=0;
S:=edit1.text;
if edit2.text='' then ShowMessage('Вы не ввели символы для поиска!') else begin
button1.caption:='Считать количество слов с буквой ' + edit2.text;
SFind:=edit2.text;
for i:=1 to length(S) do if (S[i]=' ')
then  Ss:=copy(S,1,i-1);
      Delete(S,1,i);
      for q:=1 to length(Ss) do if (Ss[q]=SFind) and (B[q]=1) then
      k:=k+1;
      B[q]:=0;
end;
edit3.text:=IntToStr(k);
end;