Rechts-/Linksklickerkennung

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  case Button of
    mbLeft: ShowMessage('Links');
    mbRight: ShowMessage('Rechts');
    mbMiddle: ShowMessage('Mitte');
  end;
end;

Geht doch einwandfrei?