[Decoding]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Caption := TimeToStr( Now );
end;

или так

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Caption := FormatDateTime( 'am/pm hh:mm:ss', Now );
end;