关于word剪贴板格式的问题

Question

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if clipboard.HasFormat(CF_Text) then
showmessage('txt');
if clipboard.HasFormat(CF_Picture) then
showmessage('pic');
end;
这段程序在一般情况下可以工作正常，但是当与word一同工作的时候，就出现了异常，"txt","pic"的messagebox自动一遍一遍的蹦出来，就象进入了死循环，请问如何解决！如何得到剪贴板中的正确内容，如何避免上面的错误！谢谢了！