Digital Clock in Delphi

 I wrote this simple Digital Clock using the Delphi programming language Object Pascal. 

If you need a computer programmer here in the Philippines or abroad, please contact me at jakerpomperada@gmail.com 

My mobile number is 09173084360.  

You can visit my other website at www.jakerpomperada.com

Thank you very much.

Jake R. Pomperada

Freelance Computer Programmer

unit digital_clock;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := True;          // start the clock
  Label1.Font.Size := 24;          // bigger text   o
  Label1.Font.Color := clRed;
  Label1.Caption := TimeToStr(Time); // initial time display
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time);  // update time every second
end;
end.