Komisches Problem mit Pointer

[blablab]

Ok, der Test mit den ShowMessages war wohl falsch...

Deshalb hier nochmal mein Problem:

Was ich will:
Ich habe ein TTreeNode mit dem namen node. Dessen Adresse möchte ich als String speichern und später möchte ich wieder auf node zugreifen.

Was ich mache:

Delphi-Quellcode:

var str: string;

procedure Nr1;
var int: integer;
   node: TTreeNode
begin
   node := Tree.Items.AddChildFirst(Tree.Selected, 'Neu');
   int := Integer(@Node);
   str := inttostr(int);
end;

procedure Nr2;
var p: ^TTreeNode;
   tmpNode: TTreeNode;
begin
   tmpNode := nil;
   p := Pointer(StrToInt(str));
   tmpNode := p^;
end;

Jetzt sollte tmpNode = node sein, ist es aber nicht...