unit uMain; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls, FMX.Objects; type TForm1 = class(TForm) lblTime: TLabel; StyleBook1: TStyleBook; Panel1: TPanel; btnPlay: TCornerButton; btnPause: TCornerButton; btnStop: TCornerButton; Timer: TTimer; Image1: TImage; procedure btnPlayClick(Sender: TObject); procedure btnPauseClick(Sender: TObject); procedure btnStopClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure TimerTimer(Sender: TObject); private { Private declarations } secCount: integer; function Sec2lblText(aSec: integer): string; public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.btnPauseClick(Sender: TObject); begin btnPlay.Enabled:= True; btnStop.Enabled:= True; btnPause.Enabled:= False; Timer.Enabled:= False; end; procedure TForm1.btnPlayClick(Sender: TObject); begin Timer.Enabled:= True; btnPlay.Enabled:= False; btnStop.Enabled:= True; btnPause.Enabled:= True; end; procedure TForm1.btnStopClick(Sender: TObject); begin Timer.Enabled:= False; btnPlay.Enabled:= True; btnStop.Enabled:= False; btnPause.Enabled:= False; secCount:= 0; end; procedure TForm1.FormCreate(Sender: TObject); begin secCount:= 0; end; function TForm1.Sec2lblText(aSec: integer): string; begin Result:= Format('%.2d', [aSec div 60])+':'+Format('%.2d', [aSec mod 60]); end; procedure TForm1.TimerTimer(Sender: TObject); begin Inc(secCount); lblTime.Text:= Sec2lblText(secCount); end; end.