procedure BatonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Single; Y: Single)