Source position: agraphics.pas line 557
type TShapeHookMsg = record
Action: LongInt;
NewShape: PRegion;
OldShape: PRegion;
NewBounds: PRectangle;
OldBounds: PRectangle;
end;