menampilkan jam di delphi

iseng-iseng tadi malam baca helpnya delphi..pas lagi ngerjain skripsi eh dapet ilmu baru...mau lihat ..ayo...

procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time; // store the current date and time
str := TimeToStr(DateTime);// convert the time into a string
Label1.Font.Style := [fsbold];
label1.Font.Size := 12;
Label1.Caption := str; // display the time on the form's caption
{ Note This could have been done with the following line of code:
Caption := TimeToStr(Time); }
end;