[Paulao]

Señores, tengo un bloco Try..Except, donde yo tengo un codigo para crear un directorio(CreateDir(Path)), pero antes doy un DirectoryExists. Que pasa es, que si fuera posible crear mi Directorio, gustaria que fuera para el bloco Except para yo tratar mi excepccion, pero no esta asi. Si no crea, se va al final, olvidando el Except.

Código Delphi [-]
try
    with Mfd do
    begin
      dirpadrao      := ReadString('MFD','DiretorioPadrao','');
      pathorigem     := ReadString('MFD','PathOrigem','');
      pathdestino    := ReadString('MFD','PathDestino','');
      arquivoorigem  := ReadString('MFD','NomeArquivoOrigem','');
      arquivodestino := ReadString('MFD','NomeArquivoDestino','');
    end;
    if not DirectoryExists(dirpadrao) then
      if not CreateDir(dirpadrao) then
        msg := 'Não foi possível criar o diretório padrão';

    SWEDA_CapturarDispositivo(1,0,'',0,15000);
    SWEDA_ReproduzirFitaDetalhe(PathOrig,PathDest,dtIni,dtFim,0);

    CapeadorReducaoZ;
    CapeadorItens;
    GravaReducao_Z;
    GravaItens;

    if not DeleteFile(dirpadrao) then
      msg := 'Não foi possível deletar arquivos no diretório padrão';

  except
    Warning(msg);
  end;