with WebCopy.Items.Add do  
 begin  
   FTPHost := ftp.tmssoftware.com  
   
 FTPUserID := 'myuserid';  
   FTPPassword := 'mypassword';  
   URL := 'webcopy.zip';  
   Protocol := wpFTP;  
   FileDate := EncodeDate(2002,3,18);  
   CopyNewerOnly := true;  
   TargetDir := 'c:\temp';  
 end;  
 WebCopy.Execute;