Después de seguir comiéndome el coco creo haber encontrado una solución satisfactoria :
Código Delphi
[-]Aux_Si_No := 0;
IBDataSet.First;
while not IBDataSet.Eof do begin
if (not IBDataSet.FieldByName('BOARDTYPE').IsNull) or
(IBDataSet.FieldByName('PAXTYPE').AsInteger = 1) then
Inc(Aux_Si_No);
if Aux_Si_No > 1 then begin
Exit;
end;
IBDataSet.Next;
end;
if Aux_Si_No <= 1 then ...