Data-Pointer in Interfacevariable casten

[RedOne]

Macht durchaus Sinn zuerst das Objekt zu erstellen und dann daraus ein Interface zu kreieren:

Delphi-Quellcode:

procedure GetAllAccounts( _o: TInterfaceList );
var
  tmp: TAccountDataExtend;
begin
  for i:= 0 to 4 do begin
    tmp:= TAccountDataExtend.Create;
    tmp.FID:= i;
    _o.Add( tmp );
    tmp._AddRef;
  end;
end {GetAllAccounts};

Sonst funktionierts nämlich nicht
Die Referenzzählung brauche ich meiner Meinung nach weil ich die InterfaceList zerstöre. Ansonsten bringt er eine Exception bei beenden des OnClick-Events.
Er gibt mir jetzt in der Deletefunktion meinen gewünschten Wert aus.
Dafür... im Grid nicht mehr Jetzt zeigt dieses immer "0" an.
Ich bekomme von der Funktion GetAllAccounts eine Interfacelist. Ich sollte diese doch gleich wie beim OnClick-Ereignis in ein TAccountDataExtend casten können?

Delphi-Quellcode:

var
  i: IDataObject;
  obj: IInterface;
  obj3: IDataObject;
  
begin
  obj:= IInterface( Pointer( ListViewMain.Selected.Data ));
  if Succeeded( obj.QueryInterface( IDataObject, obj3 )) then begin
    ShowMessage( TAccountDataExtend( obj3.XYZ ));
  end;
end;

Arbeite übrigens mit Delphi 2007

Vielen Dank