TidFTP [TidFTP] Проверить, есть ли папка на сервере с помощью FTP

[rareMax]

Подскажите, как правильно проверить, есть ли папка на FTP сервере?

Сейчас делаю так:

function TFTP_As.FtpPathExist(Path: String): boolean;
begin
  Result := false;
  try
    fFtp.MakeDir(Path);
  except
    Result := true;
  end;
end;

Но при большом кол-ве папок тяжело отлаживать программу - уж слишком много except"ов. Можно ли как-то иначе сделать эту проверку? 

Спасибо.