AV - Wo?

[fwsp]

hallo

Ich krieg immer ne AV, weiß net wo...

ich will ne datei auslesen die wie folgt aufgebaut ist:

Code:

123  AbiTools
156  Musik.Suite
156  Musik.Suite
123  AbiTools
156  Musik.Suite
156  Musik.Suite
123  AbiTools
156  Musik.Suite
156  Musik.Suite
123  AbiTools
156  Musik.Suite
156  Musik.Suite
123  AbiTools

und zwar will ich die in ein record einlesen:

Delphi-Quellcode:

type
  TProjekt = record
    ID: Integer;
    Name: String;
    Dateien: array of String;
end;

und das in der prozedur:

Delphi-Quellcode:

procedure LoadProjectList(Datei: TStrings; var Tree: TTreeView;
  var Prj: array of TProjekt);
var
  i: Integer;
  Root: TTreeNode;
begin
  Root := Tree.Items.AddFirst(nil, 'Projekte');
  for i := 0 to (Datei.Count - 1) do
  begin
    Prj[i].ID := StrToInt(Trim(Copy(Datei[i], 1, 5)));
    Prj[i].Name := Copy(Datei[i], 6, (Length(Datei[i]) - 5));
    Tree.Items.AddChild(Root, Prj[i].Name);
  end;
end;

die prozedur ruf ich so auf:

Delphi-Quellcode:

ProjekteDatei := TStringList.Create;
ProjekteDatei.LoadFromFile(UGlobal.PDir + 'Einstellungen/Projekte.pof');
ULAS.LoadProjectList(ProjekteDatei, TreeViewProjekte, Projekt);
ProjekteDatei.Free;

wo ist der fehler?