[[AzidRain]]

Otra forma haciendo que el query no nos regreso nulos:

Código Delphi [-]

  _Auxi.SQL.Add('select coalesce(MAX(Periodo)+1,0) from CA_PERIODOSINGRESO where Ejercicio=:Ejercicio');
   Q_Auxi.ParamByName('Ejercicio').Value:=cxComboBox1.Text;
   Q_Auxi.Open;
   if not Q_Auxi.IsEmpty and Q_Auxi.Fields.Fields[0].Value>0 then
    cxTextEdit1.Text:=Q_Auxi.Fields.Fields[0].Value;
  end