Функцию, которая принимает в качестве параметра строку и символ и вычисляет количество таких символов в строке (Delphi)

[Serge_Bliznykov]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Length(Edit2.Text)<>1 then 
    ShowMessage('Ошибка - нужно в Edit2 задать один символ!')
  else 
    Label1.Caption := IntToStr( CountCharAtString(Edit1.Text, Edit2.Text[1]) );
end;