Delphi - Puntero

Buenas tardes a todos, mi pregunta es muy sencilla y espero que vds, podais respondermela, ahi va;

¿Cómo podemos obtener la dirección de memoria a la que apunta un puntero?

Ejemplo:

var
Ptr1: ^Char;
Ptr2: ^Integer;
valor_puntero: ^Integer;

procedure TForm1.Button1Click(Sender: TObject);
var
num: integer;
car: char;

begin
new(Ptr1);
Ptr1^ := 'B';
valor_puntero^ := Ptr1; <----- aqui me da fallo;
car := Ptr1^;
new (Ptr2);
Ptr2^ := 86;
num := Ptr2^;

showmessage (car);
showmessage (IntToStr(num));
end;

Un saludo y seguid asi sois los mejores. Desde Finlandia con cariño para toda latinoamerica.

Has leido bien la ayuda?

valor_puntero^ := @Ptr1