[AlexSku]

На форме таймер и StaticText. Свойства StaticText.Font:
Color = clBlue, Name = Arial Unicode MS, Size = 30. У таймера событие OnTimer, у формы - OnCreate. Счёт идёт от момента старта Windows.

Код:

type
  TForm1 = class(TForm)
    StaticText1: TStaticText;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function WinTime: String;
var
  a: Double;
begin
  a:= GetTickCount / (1000 * 60 * 60 * 24);
  Result:= TimeToStr(TDateTime(a));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StaticText1.Caption:= WinTime;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StaticText1.Caption:= WinTime;
end;

end.