No acabo de comprender bien lo que quieres hacer. Según parece la consulta siempre va a traer 2 Registros, y además solamente pueden contener el número 1 ó el 2.
Código Delphi
[-]
If Query1.Fields[0].AsInteger = 1 then
ShowMessage('XXXXX');
Si son dos registros,
Evaluar como en el ejemplo
Lo mismo
y luego de acuerdo a lo obtenido dar el mensaje que corresponda.....
Un Saludo.