下面是Indy9.0.10修正版的片段程式碼：    // added by Liu Yang 2002.2.1
fpcmSiteHostPort: // Send command SITE (FTP-Host FTP-Port)
begin
 if (Length(ProxySettings.UserName)>0) then 
  begin
   if SendCmd('USER '   ProxySettings.UserName, [230, 331]) = 331 then 
     begin
       SendCmd('PASS '   ProxySettings.Password, 230);
     end; // 230是允許的FTP協議返回程式碼，
         //詳細的看RFC 959 http://www.rfc-editor.org/rfc/rfc959.txt
  end;//proxy login
 SendCmd('SITE ' FHost ' ' IntToStr(FPort));//? Server Reply? 220?
 if SendCmd('USER '   FUserName, [230, 331]) = 331 then 
  begin
   SendCmd('PASS '   FPassword, 230);
  end;
end; //fpcmSiteHostPort    .............    fpcmUserPass: //USER user@firewalluser@hostname / PASS pass@firewallpass
begin // check point firewall / added port by Liu Yang 2002.2.2
 if SendCmd(Format('USER %s@%s@%s %d',[FUserName,ProxySettings.UserName,FHost,FPort]), [230, 331])=331 then 
  begin
   if Length(ProxySettings.Password)>0 then begin
    SendCmd('PASS ' FPassword '@' ProxySettings.Password, 230);
  end
 else
  begin
   SendCmd('PASS ' FPassword, 230);
  end;//if @
 end;
end;//fpcmUserPass
...........
procedure TIdFTP.Connect(AAutoLogin: boolean = True);
var
 TmpHost: String;
 TmpPort: Integer;
begin
 try
  //APR 011216: proxy support
  TmpHost:=FHost;
  TmpPort:=FPort;
  try
   if (ProxySettings.ProxyType>fpcmNone) and (Length(ProxySettings.Host)>0) then 
    begin
     FHost:=ProxySettings.Host;
     FPort:=ProxySettings.Port;
    end;
   inherited Connect;
  finally
   FHost:=TmpHost;
   FPort:=TmpPort;
  end;//tryf
  // fixed by Liu Yang 2002.2.1
  if ProxySettings.ProxyType=fpcmNone then
   begin // non-proxy connection
    GetResponse([220]);
    Greeting.Assign(LastCmdResult);
   end 
  else 
   InputBuffer.Clear; // clear buffer for using proxy to connect
if AAutoLogin then begin
  Login;
  DoAfterLogin;
  SendTransferType;
  // OpenVMS 7.1 replies with 200 instead of 215 - What does the RFC say about this?
  // Fix by Liu Yang 2002.6.9 for support Cisco FTP Server (It will reply 502)
  if SendCmd('SYST', [200, 215, 500, 502]) = 500 then 
   begin
    FSystemDesc := RSFTPUnknownHost;
   end 
  else 
   begin
    FSystemDesc := LastCmdResult.Text[0];
   end;
  DoStatus(ftpReady);
 end;
 except
   Disconnect;
   raise;
 end;
end;