// control de encendido
if (TimerLuces->Enabled==false) // la cambiada
if (HoraEncendido->Hour<=HoraActual->Hour)
if (HoraEncendido->Minutes=HoraActual->Minute)
if (HoraEncendido->Secon<=HoraActual->Secon){
Outport(FrmDireccion->PDirOut,2);
TimerLuces->Enabled = true;
}
// control de apagado
if (TimerLuces->Enabled==true) // otra mas
if (HoraApagado->Hour>=HoraActual->Hour)
if (HoraApagado->Minute>=HoraActual->Minute)
if (HoraApagado->Secon>=HoraActual->Secon){
Outport(FrmDireccion->PDirOut,0);
TimerLuces->Enabled = false;
}