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