Consulta como hacer varias validadciones anidadas

[webmasterplc]

Buenas tengo una consulta de logica, estoy haciendo un proyecto que requiere varias validaciones, estuve pensando en case anidados pero estuve eyendo que la sintaxis no lo permite, paso a planetar.

en mis variables globales tengo 3 opciones

Código Delphi [-]
var
imp_fiscal,
imp_standar,
envia_sms: Integer;

alli solo voy a llenar con 0 y 1 la opcion activa la primera es impresora fiscal la segunda standar
si la primera esta seleccionada debelo elegir el protocolo a usar son varios.

La segunda validadion que hago es si el usuario esta autorizado al envio de sms y si el cliente requiere envio de sms la variable es entera también saludos

[Casimiro Notevi]

Por favor, exprésate correctamente, pon signos de puntuación, comas, etc. donde debas, ¡¡¡es que no se entiende nada!!!

[[movorack]]

1. No se entiende lo que planteas.
2. Claro que si se pueden anidar las validaciones.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
  type
    TEnumTipo = (TipoA, TipoB);

  function FuncCond(Valor: Integer): string;
  begin
    Result := '';
    if Valor > 0 then
      Result := IntToStr(Valor);
  end;

  var
    lChar: Char;
    lTipo: TEnumTipo;
    lValor1, lValor2: Integer;
    lStr: string;
begin
  case lTipo of
    TipoA:
      case lChar of
        'A':
          if lValor1 < 0 then
            lStr := FuncCond(lValor2*-1)
          else
            lStr := FuncCond(lValor2);
        'B':
          if lValor1 < 0 then
            lStr := FuncCond((lValor2*-1)*100)
          else
            lStr := FuncCond(lValor2*100)
      end;
    TipoB:
      case lChar of
        'A':
          if lValor1 < 0 then
            lStr := FuncCond(lValor2*-1)
          else
            lStr := FuncCond(lValor2);
        'B':
          if lValor1 < 0 then
            lStr := FuncCond((lValor2*-1)*100)
          else
            lStr := FuncCond(lValor2*100)
      end;
  end;
end;

Referencia: Declarations and Statements

[webmasterplc]

Buenas tengo una consulta de logica, estoy haciendo un proyecto que requiere varias validaciones.
Estuve pensando en case anidados pero lei que la sintaxis no lo permite, paso a planetar:

En mis variables globales tengo varias opciones

Código Delphi [-]
var
imp_fiscal,
envia_sms: Integer;

Las variables las voy a llenar con 0 y 1, 1 es activo y 0 inactiva
Primera validación Si la variable imp_fiscal está en 1 lo que hago es seleccionar 1 de 4 opciones de protocolos si esta en 0 illamar un reporte de fastreport.

La segunda validación que debo hacer es si el usuario está autorizado a enviar sms en caso que así sea paso a validar si el cliente autorizó recibir sms.

voy a probar lo que sugiere movorak.