Fórum FTP: Invalid PORT Command .. erro ao enviar um arquivo PUT() #338855

  lbStatus.Caption := ´Conectando ao servidor FTP´;
  update;
  try
    ftp.Connect();
    ftp.ChangeDir(´./prime´);
  except
    messagebox(handle, ´Não foi possível conectar ao servidor ftp´, ´´, mb_iconerror+mb_ok);
    close;
    exit;
  end;

  ggStatus.Progress := 50;
  update;

  lbStatus.Caption := ´Enviando o extrato´;
  update;
  //ftp.Put(dm.ConfFD+´\pdf\´+ext); //O ERRO EH BEM AKI
  ggStatus.Progress := 65;
  update;

  lbStatus.Caption := ´Enviando cotas´;
  update;
  //ftp.Put(dm.ConfFD+´\temp\´+arq); //O ERRO EH BEM AKI
  ggStatus.Progress := 80;
  update;

  lbStatus.Caption := ´Enviando o arquivo de configuração´;
  update;
  CopyFile(PChar(dm.ConfFD+´\temp\config.asp´), ´config.asp´, true);
  ftp.Put(´config.asp´, ´config.asp´, false); //O ERRO EH BEM AKI
  ggStatus.Progress := 100;
  update;