Source position: TplButtonCompsUnit.pas line 110
protected procedure TplAOLButton.MouseDown(
Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer
); override;