德尔福XE2;剪贴板和GIF动画

Question

我用delphi形式显示GIF动画，如下所示：

(UnsupportedGif.Picture.Graphic as TGIFImage).AnimateLoop := glEnabled;
(UnsupportedGif.Picture.Graphic as TGIFImage).Animate := true;

当用户点击Timage我想将动画gif复制到剪贴板但我无法正确使用它。这就是我尝试过的：

Clipboard.Assign(UnsupportedGif.Picture.Graphic);

不会显示任何错误消息，也不会将任何内容复制到剪贴板。有人能指出我该怎么做吗？