Cómo distinguir los botones izquierdo y derecho del mouse en delphi2006

Bajo el evento onmousedown del botón,

procedimiento TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer ) ;

comenzar

botón de caso de

mbleft :form1.close;//La función que desea lograr al presionar el botón izquierdo

mbright :form2.show;//La función que deseas lograr cuando presionas el botón derecho

end;

end;