Object aus TOPbjectList nicht Castbar

[eyeless]

Tach!

Ich Problem: Ich habe mit eine Klasse namens Tm3u, abgeleitet von TObject, erzeugt, und wollte diese nun mithilfe einer TObjectList .. auflisten halt.

hier mal die Klasse:

Delphi-Quellcode:

type
 Tm3u = class(TObject)
  dir : String;
  list : TStringList;
  constructor Create;
  destructor Destroy;
 end;

constructor Tm3u.Create;
begin
list := TStringList.Create;
dir := '';
end;

destructor Destroy;
begin
list.free;
end;

Soweit so gut ...

Dem Object Werte zuweisen und dann in die Liste (m3ulist) einfügen geht ohne Probleme.
Die Anzahl der Objecte in der Lsite stimmt dann auch ...

Wenn ich dann aber z.B. sage showmessage((m3ulist.items[0] as Tm3u).dir), kriege ich eine 'InvalidCasting...' Fehlermeldung!!!
Warum?

Einfügen tue ich die Objecte so;

Delphi-Quellcode:

var
 obj : Tm3u
begin
 obj := Tm3u.Create;
 obj.dir := 'blabla';
 obj.list.assign(irgendsoneliste);
 m3ulist.add(obj);
 obj.destroy;
end;

Kann mir nu jemand sagen, was ich so dermaßen falsch mache ?

Wär kewl, wenn ..

mfg :: eyeless