[[seoane]]

Si la variable ptr es de tipo pointer, prueba con esto:

Código Delphi [-]
ShowMessage('$'+IntToHex(Cardinal(Ptr),8));