Membuat Label Kedap-Kedip Menggunakn Delphi 7

Assalamualaikum Wr. Wb teman-teman yang disitu :)

Saat ini saya akan berbagi tentang label kedap-kedip, OK langsung aja buka aplikasi Borland Delphi 7 anda, kemudian siapkan form, menu label 1 dan timer 1, kemudian klik 2 kali pada timer 1 dan masukkan coding dibawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Font.Color := Trunc(clBLUE*random);
end;

Mudah-mudahan berbagi kita bisa bermanfaat, kurang dan lebihnya saya minta maaf kepada para master.


-TERIMA KASIH-