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