Button1: TButton; Button2: TButton;procedureButton1Click(Sender: TObject);procedureButton1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);procedureButton2Click(Sender: TObject);private{Private declarations}public{Public declarations}m_tag: integer; m_time_cli...