Source position: line 0
procedure SetCaptureControl(
AWinControl: TWinControl;
const Position: TPoint
);procedure SetCaptureControl(
Control: TControl
);