Probleme mit File Of Byte/Char

[J Kadison]

Hallo Danke für die schnellen Antworten.
Bin grad leider nur auf durchmarsch.
Probiere es heute abend aus aber ihr meint, mit

Delphi-Quellcode:

var 
  l     : Array of Byte; 
  xy, 
  m     : File of Byte; 
  x     : integer; 
  Pfad, 
  Pfad1 : String; 
begin 
  Pfad  := Edit1.Text; 
  Pfad1 := Edit2.Text; 

  AssignFile(xy,pfad); 
  reset(xy); 

  
  //DAS HIER IST GEÄNDERT
  AssignFile(m,Pfad1); 
  rewrite(m);
  //BIS HIER

  SetLength(l, Filesize(xy)); 
  for x := 0 to FileSize(xy)-1 do begin 
    read(xy,l[x]); 
    // Hier hab ich noch was um den Fortschirtt anzuzeigen 
  end; 
  for x := 0 to Length(l)-1 {DAS IST AUCH GEÄNDERT} do begin 
    write(m,l[x]); 
    // Hier hab ich noch was um den Fortschirtt anzuzeigen 
  end; 
  closefile(xy); 
  closefile(m); 
end;

solte es gehen?! oder ist da ncoh was falsch ?

Aber kann das Length(1) zu einem größenunterschied von ~ 300KB führen?!?