1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var i,z:integer;
    f: file of Byte;
    size,gesamt:longint;
begin
     z:=0;
     For i := 0 To box_file.Items.Count - 1 Do
     begin
     If box_file.Selected[i] Then
      AssignFile(f,box_file.items[i]);
     reset(f);
     size:=filesize(f);
      z:=z+1;
     end;