Código Delphi [-] if (foo is TProveedor) then // la variable foo contiene un objeto de la clase TProveedor
if (foo is TProveedor) then // la variable foo contiene un objeto de la clase TProveedor