Object aus TOPbjectList nicht Castbar

[eyeless]

Soo, an sich hat nun alles funktioniert.

Ich hab jez nur ein anderes Problem, was sich aber auch darauf bezieht:

Ich lese in einer Schleife Daten (Ordner) aus, speichere den Pfad und die mp3s im ordner (als Stringlist) in einem Tm3u-Object und adde dieses in die liste m3uList.

Das mache ich so:

Delphi-Quellcode:

procedure createObjs;
var
 i : Integer;
 m3uObj : Tm3u;
 aDir : String;
begin
 m3uObj := Tm3u.Create;
 with m3uForm.TreeView do
 begin
  for i := 0 to Items.Count-1 do
  begin
   if countMP3s(addSlash(currDir+getNodePath(Items[i]))) > 0 then
   begin
    m3uObj.dir := addSlash(getNodePath(Items[i]));
    getMP3s(addSlash(currDir+getNodePath(Items[i])),m3uObj.mp3s);
    m3uList.Add(m3uObj);
   end;
  end;
 end;
 //m3uObj.Free;
end;

Wenn ich aber nun zum schluss die einzelnen Objecte ausgeben lasse, haben allse den gleichen Pfad und alle haben ALLE mp3-namen (aus allen ordnern) in den Listen gespeichert.

Was mache ich falsch? Was muss ich ändern?

Hoffe auf Hilfe, eyeless