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

         {------------------------------------------} 
         { Den FileStream fuer den Resume erstellen } 
         {------------------------------------------} 
         if FileExists(Zieldatei) then 
         begin 
           Fs := TFileStream.Create(Zieldatei, fmOpenReadWrite); 
           Fs.Position := Fs.Size; 
         end 
         else 
           Fs := TFileStream.Create(Zieldatei, fmCreate); 

         {------------------------------------------} 
         { Ab der gewissen Position anfangen        } 
         {------------------------------------------} 
         Ftp.Get(Quelldatei,&...Fs, True); ;
         Ftp.KillDataChannel;					

1:

         Ftp.Get(Quelldatei,&...sp;False, True);