DELPHI 复制图片问题

[pilotage]

方法一
全局对象 GPngImage
ClipBoard.Assign(GPngImage);

方法二：
LPngImage.SaveToClipBoardFormat(LFormat, LData, LPalette);
ClipBoard.SetAsHandle(LFormat, LData);

不管用哪一种方法，复制的图片还是会出现什么内容没有白色图片，求解

[pykill8]

我用的xe 10.2

刚试了没有问题。ICON 不行，图片可以，我粘贴到画板
user vcl.Clipboard

procedure TForm1.btn2Click(Sender: TObject);
var
myfor: Word;
aData: THandle;
aPalatte: HPALETTE;
begin
img1.Picture.SaveToClipboardFormat(myfor, aData, aPalatte);
Clipboard.SetAsHandle(myfor, aData);

end;

[pilotage]

做个循环，比如一分钟一次，这种情况就出现了