Digital Clock in Delphi

 I wrote this simple Digital Clock using 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

Program Listing

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.