ERROR al compara archivos FTP

[pruz]

navbuoy,
gracias por responder, pero me sigue dando el mismo error

Código Delphi [-]
if ftp.Connected then begin
      
      ExisteEnServidor := False;

      FTP.ChangeDir('/');
      FTP.ChangeDir(sruta);
      FTP.List;          ///aqui me da el mismo error

     for i := 0 to FTP.DirectoryListing.Count - 1 do begin
        if FTP.DirectoryListing.Items[i].ItemType = ditFile then begin  //supongo que el ditFile es type de archivo
        if AnsiCompareText(FTP.DirectoryListing.Items[i].FileName, sArchivo) = 0 then
        begin
          ExisteEnServidor := True;
          Break;
        end;
     // end;
    end;

    if ExisteEnServidor then
      ShowMessage('El archivo ya existe en el servidor.')
    else
      ShowMessage('El archivo no existe. Se puede subir.');

gracias