Lampu Laulintas Delphi

Malam agan-agan pada malan ini saya akan memberi sedikit tips dan trik untuk membuat contoh program lampu lalu lintas Merah Kunin Hijau yang dengan sendirinya berganti-ganti. Dari pada kebanyakan cing cong langsung saja desain form seperti gambar di samping ok ok ok
komponen yang di pakai antara lain :
>> 2 panel ambil di pallet standard
>> 1 timer ambil di pallet system
>> 3 image di pallet aditional (untuk image kita buat 3 gambar dengan paint dengan warna merah kuning hijau dan disimpan dengan format BMP)

untuk pengisian scripnya sebagai berikut :
pada timer 1 klik dua kali(double klik);


procedure TForm1.Timer1Timer(Sender: TObject);
var
  waktu : integer; //untuk variabel waktu adalah integer/angka
begin
  waktu:=strtoint(panel2.Caption); //untuk membuat agar oanel ter indeksi integer
  waktu:=waktu+1;
  panel2.Caption:=inttostr(waktu);
if panel2.Caption='6' then
  begin
  Image1.Visible:=true;//agar image 1 terlihat
  Image2.Visible:=false;//agar image 2 tidak terlihat
  Image3.Visible:=false;//agar gambar 3 tidak terlihat
  end
  else
if panel2.caption='12' then
  begin
  Image1.Visible:=false;//agar image 1 tidak  terlihat
  Image2.Visible:=false;//agar image 2 terlihat
  Image3.Visible:=true;//agar image 3 tidak terlihat
  end
  else
if panel2.caption='18' then //pada saat panel 2 captionnya 18
  begin //maka
  Image1.Visible:=false;//agar image 1 tidak terlihat
  Image2.Visible:=true;//agar image 2 tidak terlihat
  Image3.Visible:=false;//agar image 3 terlihat
  panel2.caption:='0';//panel2 kembali ke posisi 0
  end;

sekian postingan kali ini selamat mencoba dan semoga berhasil untuk membuatnya.Good Luck dan Salam Ilmu