var
cds : TCopyDataStruct;
ms : TMemoryStream;
n : cardinal;
begin
ms := TMemoryStream.Create;
Image1.Picture.Graphic.SavetoStream(ms);
n := ms.size;
cds.cbData := n;
getmem(cds.lpdata, cds.cbdata)
strcopy(cds.lpdata, ms.memory);
sendMessage(hd, wm_copydata, handle, cardinal(@cds));
ms.Free;