[v1s2222]

Дам примерчик:

Код:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If Button = mbRight then
    //// твои действия... :D
end;

ЗЫ на будущее: почаще заглядывай в гугл, помогает