membuat teks berkedip

biasanya teks kedip dibuat dalam suatu software animasi misalnya flash atau web (BLINK)kali ini menjalankan teks pada delphi, caranya yaitu
- buat new Form
- tambahkan komponen Label, Text, Timer. atur letaknya sesuai anda
contoh:



Double klik pada Timer1 lalu tulis atau pastekan listing berikut;
if label1.Visible= True Then Label1.Visible:=False Else Label1.Visible:=True;
- RUN program

coba ini untuk berkedip berubah warna
sama seperti diatas siapkan label dan timer
klik2xtimer ketik yg warna merah
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Font.Color := Trunc(clBLUE*random);
Label2.Font.Color := Trunc(clred*random);
Label4.Font.Color := Trunc(clyellow*random);

bisa di sesuaikan label mana yang anda inginkan untuk berkedip berubah warna tinggal menambahkan seperti diatas