Membuat Efek Flash dengan Delphi

Efek Flash adalah Sebuah Efek yang terjadi pada Form sehingga form terkesan sedang memberikan tanda warning atau kerennya peringatan!!! selalu aktif.efek ini memiliki logika yang sama dengan pembuatan teks berkedip,,Cuma 2 baris code lagi!!!!emmm gampang ya??.untuk membuat efek Flash dengan Delphi ikutin langkah-langkah berikut:

-Buka Celana eh...buka Delphi lalu Siapakan Form kosong
-tambahkan komponen Timer yang terletak pada pallete System
-Doble Click komponen Timer lalu ketikan Code berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
flashWindow(Handle,true);
FlashWindow(Application.Handle,true);
end;

-Pencet F9!!!
lihat hasilnya!!
anda sering lihat kan efek seperti ini pada aplikasi-aplikasi Windows,jika melakukan warning???
Selamat mencoba ya,Semoga Bermanfaat ^__^.