TWMMoving = packed record
  Msg: Cardinal;
  Edge: Integer;
  DragRect: PRect;
end;

struct TWMMoving {
  unsigned Msg;
  int Edge;
  PRect DragRect;
};