Hola Román, tienes razón en tu afirmación, pero lo que yo progongo funciona:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('Select count(*) as Registros From Precios');
Adoquery1.SQL.Add('Where codigo = ''001''');
Adoquery1.Open;
if Adoquery1.Fields[0].AsInteger = 0 then
ShowMessage('No existe ningún Registro')
else
ShowMessage('Registros devueltos:'+Adoquery1.Fields[0].AsString);
end;
Me estoy refiriendo no al número de registros devueltos, que como muy bien dices como mínimo sería uno, sino a la cuenta que si que arrojará 0 cuando no exista ningún registro que cumpla la condición.
Un Saludo.