Hola,
en primer lugar, en el código que has puesto deberías sustituir el ExecSQL por Open, ya que ExecSQL sirve solo para Inserts, updates y deletes, no para selects.
Respecto a tu pregunta... No te sirve recuperar el valor de tu campo usando FieldByName??
Código Delphi
[-]
Open;
ShowMessage(qConsulta.FieldByName('Maximo').AsString);
Saludos!