Pointer auf Klassenvariable, die übergeben wurde, zuweisen

[stefan2005]

ich habe eine Klasse mit: (stark gekürzt)

TTest = class
X : Integer
[...]
end;

zwei Variablen (davon eine ein Pointer):

Var Test : TTest
TestPointer : ^Pointer;

und eine Procedure:

procedure Zuweisen(xx: TTest);
begin
TestPointer := @xx;
// hier funktioniert der Pointer noch (innerhalb der Procedure)
end;

Die Procedure rufe ich so auf:

[...]
Zuweisen(Test);
// ab hier funktioniert der Pointer nicht mehr !
[...]

Problem:
Die Pointerzuweisung funktioniert nicht richtig !
In der "procedure Zuweisen" kann ich zwar noch fehlerfrei mit dem Pointer und die Klasse zugreifen, aber wenn die Procedure beendet ist und der andere Qualltext fortgesetzt wird, treten Fehler oder falsche Werte auf !

Geht das nicht oder an was liegt es, warum ich keine Pointer auf eine Klasse zuweisen kann, die übergeben wurde ???