[[Delphius]]

JXJ, acabo de hacer una prueba, pues nunca hice este paso. Y en lo posible lo evito:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const ALGO: dword = $0010;
var un_algo: integer;
begin
  //un_algo := Integer(ALGO);
  ShowMessage(IntToStr(ALGO));
end;

El resultado es 16.

Y también probé con esta variante:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const ALGO: dword = $0010;
var un_algo: integer;
begin
  un_algo := Integer(ALGO);
  ShowMessage(IntToStr(un_algo));
end;

El resultado es el mismo.
¿Tal parece que el Cast o no usarlo es lo mismo?

Si respondo a tu pregunta.... avisame. La verdad es que evito en lo posible realizar Cast.

Saludos,