Aplikasi Jam dan Tanggal Menggunakan Delphi

Dari desain form di atas, terlihat komponen:

Komponen	Keterangan
Label1	Jam
Label2	Tanggal
Timer1	Sintak: LABEL1.Caption:='JAM : ' + TIMETOSTR(NOW); LABEL2.Caption:='TANGGAL : ' + DateToStr(NOW);
DateTimePicker1	-
MonthCalendar1	-
Label3	www.dm-math.blogspot.com Sintaksis: Double klik: ShellExecute(Handle, 'open', 'http://www.dm-math.blogspot.com', nil, nil, SW_SHOWNORMAL); Event: MouseEnter: label3.Font.Color := clBlue; label3.Font.Style := label3.Font.Style + [fsUnderline]; Event: MouseLeave: label3.Font.Color := clBlack; label3.Font.Style := label3.Font.Style - [fsUnderline];

CATATAN: Tambahkan kode ShellApi di Uses.