Código Delphi [-] if Self.FindComponent(valorX) is TCheckBox then chBox := (Self.FindComponent(valorX) as TCheckBox);
if Self.FindComponent(valorX) is TCheckBox then chBox := (Self.FindComponent(valorX) as TCheckBox);