Format('%p = %p', [Pointer(VarA), Pointer(VarB)])
oder inkl. der Delphi-Signatur "$"
Format('$%p = $%p', [Pointer(VarA), Pointer(VarB)])
SysUtils.Format
Zur Konvertierung in einen "Integer", sollte man vielleicht besser z.B. IntPtr für's Casten verwenden.
z.B. bei Win64 würde eingefrorene/kaputtgemachte Integer ja einen Fehler bringen und die Hälfte abschneiden, aber hoffentlich merkt der Compiler den Fehler und stoppt mit einem Compilerfehler, weil die Größe nicht passt.