registrering af højre vs venstre knap på musen

Den er med i OnMouseDown:

procedure OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Bare kig på Button, så har du hvilken knap der bliver trykket på!

Den værdi du får fra button er af typen TMouseButton, som er defineret på følgende måde:
TMouseButton = (mbLeft, mbRight, mbMiddle);

Det kan du så bruge, f.eks. som jeg har skrevet neden under.

case Button of
  mbLeft: ShowMessage('Der er trykket på venstre knap!');
  mbRight: ShowMessage('Der er trykket på højre knap!');
  mb: Middle: ShowMessage('Der er trykket på knappen i midten!');
end;

//hermandsen

Super,

Mange tak

Jamen velbekomme da, og selv tak! :)