1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

if AFTP.DirectoryListing.Count > 2 then
     for I := 0 to AFTP.DirectoryListing.Count -1 do 
       begin      
         if AFTP.DirectoryListing[i].ItemType = ditFile then
           begin
              if Fileexists(ALocalPath +AFTP.DirectoryListing[i].FileName) then
                begin
                 if bOverwrite then
                    begin
                    DeleteFile(ALocalPath +AFTP.DirectoryListing[i].FileName);
                    AFTP.Get(AFTP.DirectoryListing[i].FileName, ALocalPath +AFTP.DirectoryListing[i].FileName, true, true); //noch nicht getestet
                    end; 
                end
                else 
                 AFTP.Get(AFTP.DirectoryListing[i].FileName, ALocalPath +AFTP.DirectoryListing[i].FileName, true, true);  //hier Fehler
           end;
      end;					

1:

IdFTP1.IOHandler.DefStringEncoding :=TIdTextEncoding.ANSI;					

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

            
 if bOverwrite = true then
  begin
   DeleteFile(LocDir+'\'+SL[i]);
   IdFTP1.IOHandler.DefStringEncoding :=TIdTextEncoding.ANSI;
   IdFTP1.Get(SL[i], LocDir + '\' + (SL.Strings[i]), boverwrite, False); //Source, Dest, CanOverwrite, Resume
  end					

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

if AFTP.DirectoryListing.Count > 2 then
     for i := 0 to AFTP.DirectoryListing.Count -1 do  
       begin
       // = File Handling
         if AFTP.DirectoryListing[i].ItemType = ditFile then
           begin
           //schon hier "falsches" ä:
           ShowMessage('1. AFTP.DirectoryListing[i].FileName: '+ AFTP.DirectoryListing[i].FileName);

....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.FillLV(TheFTP: TIDFTP);
var i: integer;
    ListItem: TListItem;
var
 FLI: TIdFtpListItems;
begin
 FLI := TheFTP.DirectoryListing;
 for i:=0 to FLI.Count-1 do begin
  ListItem:= ListView1.Items.Add;
  ListItem.Caption := FLI[i].FileName;
  case FLI[i].ItemType of
   ditDirectory : ListItem.SubItems.Add('dir');
   ditFile : ListItem.SubItems.Add('file');
  end;
  ListItem.SubItems.Add(IntToStr(FLI[i].Size));
  ListItem.SubItems.Add(DateTimeToStr(FLI[i].ModifiedDate));
  ListItem.SubItems.Add('unique'); /// !!
  ListItem.SubItems.Add(FLI[i].PermissionDisplay);
 end; // for i
end;