in Tag Integer oOder TObject schreiben

[hoika]

Hallo,
ich versuche in ein Tag (also Integer) eine Zahl oder ein Objekt zu schreiben.
Hier meine Versuche (i ist dann mal das Tag).
Leider schmiert er mir immer ab.

Hintergrund:
Bisher standen im Tag wirklich nur Integer-Zahlen drin,
jetzt sollen es aber auch zusätzlich mal Objekte sein.

Der alte "Integer in Tag"-Code soll aber trotzdem noch laufen.

Wie mache ich das am Besten?


Danke
Heiko

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  O: TObject;
  P: Pointer;
begin
  O:= TObject.Create;

  i := 33;
  P := Pointer(i);
  if TObject(P) is TObject then
  begin
    O := TObject(P);
    if O is TObject then
    begin
      if O.ClassName='TObject' then   <<--  Puff
      begin

      end;
    end;
  end;


  i := Integer(O);
  P := Pointer(i);
  O := TObject(P);
  if O is TObject then
  begin
    if O.ClassName='TObject' then
    begin

    end;
  end;

end;