TWMCopyData = packed record
  Msg: Cardinal;
  From: HWND;
  CopyDataStruct: PCopyDataStruct;
  Result: Longint;
end;

struct TWMCopyData {
  unsigned Msg;
  HWND From;
  PCopyDataStruct CopyDataStruct;
  Longint Result;
};