[Страдалецъ]

Ну ленивый народ пошел:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   n: Integer;
   s: String;
begin
n:=0;
Edit3.Text:='';
Edit2.Text:='';
s := 'что там мы-типа пытаемся заменить';
if CheckBox2.Checked then
  while Pos('а', s) > 0 do
  begin
  n:=n+1;
  s[Pos('a',s)]:='б';
 end;
if CheckBox3.Checked then
while Pos(' ',s)>0 do
  begin
  n:=n+1;
  s[Pos(' ',s)]:='-';
 end;
if CheckBox1.Checked then Edit3.Text:=IntToStr(n);
Edit2.Text:=s;

end;