Error "Destination File Already exists" descargando por FTP

[pablopessoa]

ese es el error cuando intento descargar un archivo de un servidor ftp con mi aplicacion, aclaro que el archivo no lo tengo en mi pc, y tb probe por las dudas hacer un delete del archivo que intento bajar antes de hacer el FTP.Get.
Abajo les pasteo el codigo por si encuentran algun error.
Yo lo que trato de hacer es : Descargar una base en access desde internet, por FTP, para actualizar la base de mi aplicacion. Lo que tengo en mente es bajarlo, asociarlo a un AdoConection, abrirlo, recorrer las tablas y fijarme que datos no tengo para actualizar mi base local, y por ultimo borrar el que baje.
Les parece bien que lo haga asi o hay alguna forma mas eficiente?

Código Delphi [-]
procedure TForm16.BitBtn1Click(Sender: TObject);
var
  FTP: TIdFTP;
begin
  FTP := TIdFTP.Create( nil );
//  FTP.OnWork := FTPWork;
  FTP.Username := usuario.Text;
  FTP.Password := pass.Text;
  FTP.Host := host.Text;
  try
    FTP.Connect;
  except
    ShowMessage( 'No se ha podido conectar con el servidor ' + FTP.Host );
  end;
  if FTP.Connected then
  begin
     //   showmessage('estoy conectado');
        Barra.Max := FTP.Size( '/BPWOK.MDB') div 1024;
        FTP.get(ExtractFilePath('BPWOK.MDB'),'c:\BPWOK.MDB',false);
        FTP.Disconnect;
        FTP.Free;
  end
  else
      showmessage('No estoy conectado');
end;

Un saludo para todos y muchas gracias de verdad por toda la buena onda que tienen y la disposicion de ayudar a novatos como yo.

[[seoane]]

¿Para que usas ExtrctFilePath?

[pablopessoa]

La verdad, encontre ese codigo en un tutorial y asi lo pastee, nunca conecte mi aplicacion a un server FTP asi que mucha idea no tengo de como hacerlo.
Vos me podras guiar un poco?
Gracias!!!

[pablopessoa]

Hola gente, queria comentarles qeu estuve investigando sobre el problema que planteaba mas arriba.
Por lo que encontre parece ser que hay un Bug en la implementacion del metodo Get del Indy (no se bien si version 9 o 10), por lo que llamar a la funcion como :

1-FTP.Get('BPWOK.MDB','c:\BPWOK.MDB',false);
2-FTP.Get('BPWOK.MDB','c:\BPWOK.MDB');
3-FTP.Get('BPWOK.MDB','c:\BPWOK.MDB',false,false);

produce el error de que el archivo ya existe sin importar que no exista.
Les dejo el codigo que encontre de la implementacion del get , al seguirlo es facil darse cuenta donde esta el error.

Antes de poner el codigo les cuento que lo solucione poniendo :
FTP.Get('BPWOK.MDB','c:\BPWOK.MDB',true);

aca va el codigo :

Código Delphi [-]
procedure TIdFTP.Get(const ASourceFile, ADestFile: string;
const ACanOverwrite: boolean = False; AResume: Boolean = false);
var
  LDestStream: TIdStream;
begin
    AResume := AResume and CanResume;
    if ACanOverwrite and (not AResume) then
      begin
        Sys.DeleteFile(ADestFile);
        LDestStream := TFileCreateStream.Create(ADestFile);
      end
    else
    begin
      if (not ACanOverwrite) and AResume then
        begin
          LDestStream := TAppendFileStream.Create(ADestFile);
        end
      else
        begin
          raise EIdFTPFileAlreadyExists.Create(RSDestinationFileAlreadyExists);
        end;
    end;

  try
    Get(ASourceFile, LDestStream, AResume);
  finally
    Sys.FreeAndNil(LDestStream);
  end;
end;

si se fijan, los parametros que indican si dejamos reemplazar el archivo y si permitimos la reanudacion de la descarga, se inicia como constante en false las dos, por lo que siguiendo los if caemos obligatoriamente en el disparo de la excepcion.