[Alegun]

Откройте новый проект, на форму из палитры компонентов бросьте Edit, Button и Memo, кликните на кнопку - в редакторе кода появится процедура обработки её жима, замените на

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Memo1.Clear;
for i := 0 to Length(Edit1.Text) do
if Edit1.Text[i] = ' ' then
 begin
  if Edit1.Text[i-1] in
   ['ц', 'к', 'н', 'г',
    'ш', 'щ', 'з', 'х',
    'ф', 'в', 'п', 'р',
    'л', 'д', 'ж', 'ч',
    'с', 'м', 'т', 'б'] then
  Memo1.Text:= Memo1.Text + 'се ' else Memo1.Text:= Memo1.Text + ' ';
 end else
  Memo1.Text:= Memo1.Text + Edit1.Text[i];
end;

(в)се