procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
case button of
mbleft :form1.close;//按下左鍵時妳想要實現的功能
mbright :form2.show;//按下右鍵時妳想要實現的功能
end;