Código Delphi [-] case IntToStr(Datos.AQ_Ubicacion['Ubi_Estado'])[1] of
case IntToStr(Datos.AQ_Ubicacion['Ubi_Estado'])[1] of