Jam Analog Delphi

1. Masukkan Label dan Timer
2. double klik timer 
3. ketik

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.caption:=timetostr(time);

end;

4.jalankan program