دریافت نوشته RTF با فرمت RTF از ClipBoard و درج در RichEdit

[FirstLine]

با سلام
من در Word یه نوشته با قالب RTF دارم که آن را به ClipBoard انتقال داده ام و حالا میخوام در برنامه با زدن یک دکمه اطلاعات RTF موجود در حافظه به یک RichEdit منتقل و اضافه شود.
تابع زیر نوع نوشته را بصورت Text در RichEdit اضافه میکند و من نتونستم از Clipboard.HasFormat(CF_RTF) استفاده کنم جون پیغام خطا به CF_RTF میگیره.
لطفا راهنمایی بفرمایید تا تابع زیر را جهت درج RTF در RichEdit تغییر دهم.



Function MH_Clipboard_Get_RTF: string;
Begin
if Clipboard.HasFormat(CF_Text) then
Result := Clipboard.AsText
else begin
ShowMessage('There is no text in the Clipboard!');
Result := '';
end;
End;

با تشکر