[Милт]

Всё, всем спасибо! Сам догадался как сделать.

Код:

uses Clipbrd

procedure TF.RichEdit1Click(Sender: TObject);
var str:string;
begin
 str:=Clipboard.AsText;
  Clipboard.AsText:=str;
end;

Админ: Пользуемся тегами для оформления кода!

После этого события вставляю текст и всё норм.