StringError - ListenIndex überschrietet das maximum

[hedie]

Hallo

Ich habe diesen Code

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var desc:tstringlist;
begin
desc := tstringlist.Create;
////////////////////////ID3Tag Speichern/////////////////////////

desc.Add(Edit1.Text);
desc.Add(Edit2.Text);
desc.Add(Edit3.Text);
desc.Add(Edit4.Text);
desc.Add(Edit5.Text);
desc.Add(tempfilename);

saveid3(desc);
desc.Free;
////////////////////////END ID3 Speichern////////////////////////

end;

saveid3 ist so deklariert
function saveid3(descriptions:tstrings):boolean;stdcall; Und in der DLL Sieht das so aus:

Delphi-Quellcode:

function saveid3(descriptions:tstrings):boolean;stdcall;
begin
descriptions := tstringlist.Create;
id3v2tag.Title := descriptions.Strings[0];
id3v2tag.Artist := descriptions.Strings[1];
id3v2tag.Album := descriptions.Strings[2];
id3v2tag.Track := descriptions.Strings[3];
id3v2tag.Year := descriptions.Strings[4];
id3v2tag.WriteToFile('test.mp3');
descriptions.Free;
end;

Wenn ich nun den Code (den ersten) ausführe, bekomme ich einen ListenInsdex überschreitet das Maximum 0 error

Wenn ich diese zeile saveid3(desc); weglass, dan bekomme ich keinen error aber dan gehts auch nicht

Ich hoffe ihr seht den fehler den ich nicht sehe

Danke schonmal