[AlexandrV]

Код:

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #32 then begin
    repeat

    until ;
  end;
end;

скажите как тут просчитать начало только что введенного слова и выделить его