procedure ecran_jeuMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; x: single; y: single)