Всё, всем спасибо! Сам догадался как сделать.
Код:
uses Clipbrd
procedure TF.RichEdit1Click(Sender: TObject);
var str:string;
begin
str:=Clipboard.AsText;
Clipboard.AsText:=str;
end;
Админ: Пользуемся тегами для оформления кода!
После этого события вставляю текст и всё норм.