Error con put del componente TIDFTP en Delphi5

[Soa Pelaez]

Buenas tardes compañeros

Me esta sucediento un error con el componente TIDFtp al realizar la acción put en Delphi5.

El código es el siguiente

Código Delphi [-]
var
  sArchivo: string;
begin
  try
    FTP.Username := 'XXXXXX';
    FTP.Password := 'XXXXXX';
    FTP.Host := 'XXXXXX';
    FTP.Port := 21;
    FTP.Connect;
    ShowMessage('Conecto de forma correcta.');
    FTP.ChangeDir('/public_html/');
    sArchivo:='XXXXXX';
    FTP.Put(sArchivo, ExtractFileName( sArchivo ), False );
    ShowMessage('Subio.');
    FTP.Disconnect;
  except
    raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
  end;

AL realizar la linea FTP.Put me tira el error access violation 0x0040740b read of address 0xa8445ced, url captura del error (https://ibb.co/hyrxff)



Si alguien puede ayudarme se lo agradecería.