TListViewItem und TObject Daten

[weisswe]

Hello!

Ich möchte meine Anwendung erweitern und benötige hierzu statt eines einfachen Integer Typs ein TObject hinter einem TListViewItem.

Bisher habe ich folgendes gemacht:

Code:

// Zuweisen
ai := ListView1.Items.Add;
ai.Data['idata'] := 5; // 5 = Typ Integer
// Auslesen
ai := ListView1.Selected;
i := ai.Data['idata'].AsInteger;   // Ergebnis = 5

Jetzt möchte ich statt Integer ein TObject verweden:

Code:

// Definition
type Tooo = class(Tobject)
   i: Integer;
end;
var o: Tooo;
// Zuweisen
o := Tooo.Create;
o.i := 5;
ai := ListView1.Items.Add;
ai.Data['odata'] := o; // o = Typ Tooo
// Auslesen
ai := ListView1.Selected;
if ai.Data['odata'].IsObject then     // -> True
begin
   o := Tooo(ai.Data['odata'].AsObject);   // Ergebnis = nil !!!
end;

Irgendeine Idee?