unit Clock_data_time00;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  ComCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ProgressBar1: TProgressBar;
    ProgressBar2: TProgressBar;
    ProgressBar3: TProgressBar;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  yy,mm,dd:word;
  hh,mn,sec,msec:word;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  if button1.Caption='Run' then button1.Caption:='Stop'
  else if button1.Caption='Stop' then button1.Caption:='Run';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if button1.Caption='Stop' then
  begin
    DecodeDate(Date,yy,mm,dd);
    DecodeTime(Time,hh,mn,sec,msec);
    label1.Caption:=inttostr(yy)+'/'+inttostr(mm)+'/'+inttostr(dd);
    label2.Caption:=timetostr(Time);
    ProgressBar1.Position:=hh;
    ProgressBar2.Position:=mn;
    ProgressBar3.Position:=sec;
  end;
end;

end.