kira2 bisa gak kek gini :ngakak procedure TForm1.Button1Click(Sender: TObject); var merah,kuning,hijau : Byte; begin merah := 60; kuning := 10; hijau := 60; Button1.Enabled := False; while button1.Enabled = False do begin while merah > 0 do begin Label1.C