Source position: fpg_main.pas line 86
type TMouseMoveEvent = procedure(
Sender: TObject;
AShift: TShiftState;
const AMousePos: TPoint
) of object;