1:
2:
3:
4:
5:
6:
7:

   for a := 0 to (box_file.Items.Count - 1) do begin
       if box_file.Selected[a] = true then
          begin
          dateien.Add(box_file.Items[a]);
          end;
          try NMFTP.Upload(dateien.Text[i],'');
          except end;                    

1:
2:
3:
4:
5:
6:
7:

For a := 0 To box_file.Items.Count - 1 Do 
  If box_file.Selected[a] Then
    Try
      NMFTP.Upload (box_file.Items[a],'');
    Except
      { Fehler }
    End;                    

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

for a := 0 to (box_file.Items.Count - 1) do 
begin 
  if box_file.Selected[a] = true then 
  begin 
    dateien.Add(box_file.Items[a]); 
  end; 
  try
    NMFTP.Upload(dateien.Text[i],'');        
  except 
  
  end;
end;                    

1:
2:
3:
4:

for i := 0 to dateien.count -1 do
begin
  NMFTP.Upload(dateien.Text[i],'');
end;