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

  memo1.Lines.Add ('nehme Proxy-Einstellungen vor ...');
  // vor dem Connect
  if P_typ = '1' then idFTP1.ProxySettings.ProxyType:=(fpcmUserSite);
  if P_typ = '2' then idFTP1.ProxySettings.ProxyType:=(fpcmSite);
  if P_typ = '3' then idFTP1.ProxySettings.ProxyType:=(fpcmOpen);
  if P_typ = '4' then idFTP1.ProxySettings.ProxyType:=(fpcmUserPass);
  if P_typ = '5' then idFTP1.ProxySettings.ProxyType:=(fpcmTransparent);
  if P_IP <> '' then  idFTP1.ProxySettings.Host:=P_ip;
  if P_Port <>'' then idFTP1.ProxySettings.Port:=strtoint(P_port);
  if P_Benutzer <> '' then idFTP1.ProxySettings.UserName:=P_Benutzer;
  if P_Kennwort <> '' then idFTP1.ProxySettings.Password:=P_Kennwort;
  if P_Aktiv = 'a' then idFTP1.Passive:=false;
  if P_Aktiv = 'b' then  idFTP1.Passive:=true;
   
  // nach dem Connect und vor der Übertragung!
  if checkbox2.checked then idFTP1.Transfertype(ftBinary) else idFTP1.Transfertype:=(ftASCII);