Rechte Maustaste auf Image blockieren

[SirThornberry]

und was spricht gegen

Delphi-Quellcode:

procedure Tfrm_main.Image1MouseUp(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  if Button = mbLeft then 
  begin 
    image1.Picture:=img_btn_normal.Picture; 
    Label1.Top:=Label1.Top-2; 
    Label1.Left:=Label1.Left+1; 
  end; 
end;