ERROR al compara archivos FTP

[pruz]

Buenas amigos.
Estoy haciendo una aplicacion FTP, para subir archivos a un servidor

Necesito compara o saber si ya el archivo existe en el servidor donde voy a subirlo.

Pero me da el siguiente error "connection closed gracefully". Estoy usando Indy y el comando List. y delphi 7.
Ya verifique que la coneccion esta abierta, ya verifique el directorio donde esta la informacion.
he qui el codigo

Código Delphi [-]
   if ftp.Connected then begin
      ya_existe := False;
      FileList := TStringList.Create;

      FTP.ChangeDir(sruta);

      FTP.List(FileList, '*.pdf',True); ///aqui me da el error

      for I := 0 to FileList.Count - 1 do  begin
        if SameText(FileList.Strings[i], sArchivo) then    begin
          ya_existe := True;
          Break; // Encontramos el archivo, salimos del bucle
        end;
      end;
   end;

Gracias.