"Unsterbliche" Klassen

[Neutral General]

Hi,

Also das hier ist keine Frage die Lebensnotwendig ist, aber da mir grad langweilig ist würde ich gerne mal wissen ob man eine Klasse irgendwie "unsterblich" machen kann habs mal so versucht aber das geht nicht so richtig^^

Delphi-Quellcode:

TUnvKlasse = class(TObject)
   public
    S: String;
    destructor Destroy; override;
  end;

var Klasse: TUnvKlasse;

destructor TUnvKlasse.Destroy;
var Seele: TUnvKlasse;
begin
   Seele := Self;
   inherited Destroy;
   Self := Seele;
   Self.S := 'Hallo';
end;

dann hab ich halt zwei Buttons:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Klasse := TUnvKlasse.Create;
 Klasse.S := 'Test';
 Caption := TUnvKlasse.S; // Caption wird 'Test' ... logischerweise^^
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Klasse.Destroy;
 Caption :=Klasse.S; // es gibt keine AV aber es steht auch nix da bzw es steht '' da
                            // wenn ich nochmal drücke gibts ne AV^^
end;

Geht das irgendwie ?
Ich glaube das hier gehört schon fast in Klatsch und Tratsch^^..

Gruß
Michael