EStackOverflow???

[shmia]

Du brauchst doch überhaupt kein Array verwenden, da du mit dem Array sowieso nichts tust.
Deshalb reicht folgender Code:

Delphi-Quellcode:

var Filme : MovieType;  // <===== kein Array nötig
...
begin 
....
for i := 1 to n do 
  begin 
   filme.name  := FilmNameConvert(ListBox1.Items.Strings[i-1]); 
   filme.pfad  := ListBox1.Items.Strings[i-1]; 
   filme.size  := Round(GetFileSize(ListBox1.Items.Strings[i-1])/1024/1024); 
   filme.format:= ComboBox2.Items.Strings[ComboBox2.ItemIndex]; 
   filme.quali := ComboBox3.ItemIndex; 
   filme.datum := now; 
   seek(moviefile,filesize(moviefile)); 
   write(moviefile,filme); 
  end; 
end;