求助 计算房价将查询到的结果赋值计算错误

可以运行，但是生成的EXE运行后 点击计算后报错

不分代码

var
  Form10: TForm10;

  function myresult(a: integer;intpayed:integer;intday:integer):integer;


implementation

{$R *.dfm}
 function myresult(a: integer;intpayed:integer;intday:integer):integer;
  begin
  myresult:=intpayed-a * intday;
  end;


procedure TForm10.Button3Click(Sender: TObject);
var
a,intpayed,intday,intresult:integer ;

begin
adoquery1.sql.add ('select 房价 from 客房 where 房号 ='''+roomnum.text+'''');
a:=adoquery1.fieldbyname('房价').asinteger;//此处报错！！！！！！！！！！！！
intpayed :=strtoint(paymoney.text);
intday :=strtoint(day.text);
intresult:= myresult(intpayed,a,intday) ;
mymoney.Text:=inttostr(intresult) ;
ShowMessage('退款为：'+inttostr(intresult));

end;

end.
=======================================================

  纠结啊、、、、、显示adoquery1；field'房价' not found

爆什么错最好贴出来，如果查询没问题的话，错误肯定是因为房价字段不是数字类型的

adoquery1.fieldbyname('房价').asstring 然后再转int看看

刚看到，这个错误 field'房价' not found 是因为字段不存在啊
adoquery1.sql.add ('select 房价 from 客房 where 房号 ='''+roomnum.text+'''');
adoquery1 sql添加了，但是没打开啊，怎么返回数据啊

field'房价' not found，写的已经很明白了啊，房价这个字段不存在

但是我用
adoquery1.sql.clear ;
adoquery1.sql.add ('select 房价 from 客房 where 房号 ='''+roomnum.text+'''');
ADOQuery1.Open;

显示 能出来房价的信息。、。。。
查询是有结果的。。。。

如何打开呢？T-T

adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add ('select 房价 from 客房 where 房号 ='''+roomnum.text+'''');
adoquery1.open;

非常感谢 
成功了
但是BDgird控件里面也显示了我查询的房价。。。。怎样才能不显示出来 我想让他显示在TEXT控件里面就可以。。。。。。