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        } 
         {------------------------------------------} 
         http://Ftp.Get(Quelldatei, Fs, True); ;
         http://Ftp.KillDataChannel;                    

1:

         http://Ftp.Get(Quelldatei, Zieldatei, False, True);