duda algo tonta

[[Caral]]

Hola
Otro ejemplito con case.
Estoy practicando para no olvidarme de esto

Código Delphi [-]
 case Panel17.Color and Panel18.Color of
 clRed: panel7.Color:= clRed;
 end;

Saludos