Delphi. Системное время

Question

Подскажите код для процедуры "TForm1.Timer1Timer", а то у меня не получается как на картинке, у меня время почему то выводится здесь :

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls; type TForm1 = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; CheckBox2: TCheckBox; Edit1: TEdit; SpinEdit1: TSpinEdit; SpinEdit2: TSpinEdit; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin Form1.Caption := TimeToStr(Time); end; end.

Татьяна · Accepted Answer

вопервых, брось компонент Label на GroupBox где текущее время, а потом измени обработчик Timer1Timer так: 
 
var 
 LHour, LMinute, LSecond, LMilliSecond: Word; 
begin 
 DecodeTime(now,LHour,LMinute,LSecond,LMilliSecond); 
 Label1.Caption:=format('%.2d:%.2d',[LHour,LMinute]); 
end;