delphi如何用写字板打开rtf文件并复制其中的内容到剪贴板

delphi怎么用写字板打开rtf文件并复制其中的内容到剪贴板？
delphi怎么用写字板打开rtf文件并复制其中的内容到剪贴板？

[解决办法]
用富文本框打开行不行?
uses
Clipbrd;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('D:\download\文档.rtf');
Clipboard.AsText := RichEdit1.Lines.Text;
end;