Cara Membuat Jam Delphi 7

Assalamualaikum wr wb
saya sekarang mao ngshare cara bagai mana
membuat jam di delphi 7 menggunakan label

bahan
2 buah label
1 buah timer yg di system

dan ini gambar nya
sebelum

dan sesudah nya di exekusi


berikut kodeingnya

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=timetostr(now);
if label1.Caption<=inttostr(12) then
label2.Caption:='AM' ELSE
if label1.Caption>=inttostr(12) then
label2.Caption:='PM';
end;

end.


dan yang mao download silahkan sisini
DOWNLOAD