Checke om det er højreklik

Nå fandt selv ud af det.

Gør følgende:

Procedure TFormN.YourObjectMouseDown(Sender: TObject;
            button : TmouseButton; Shift : TShiftState; X, Y : Integer);
BEGIN     
  IF (ssRight in Shift) then
      BEGIN
//
//    gør et eller andet ved højre klik
//
      END
    ELSE
      BEGIN
//
//        ellers gør noget andet ved venstre klik
//
    END;
END;

Og den virker !

K