求帮助，在线急等！解决方法

求帮助，在线急等！！！！！！
procedure TForm3.FormCreate(Sender: TObject);
var
sqlstr:string;
begin
  ADOQuery1.close;
  ADOQuery1.SQL.Clear;
  edit1.Text:='生活费';
  sqlstr:='select 大类,小类 from 分类表 where 大类='+edit1.text+'';
  ADOQuery1.SQL.Text:=sqlstr;
  ADOquery1.Active:=true;
end;

为什么总报错，参数生活费没有默认值，access数据库里大类有生活费这一项的。本人初学，
单纯为了毕业设计。

[解决办法]
如何edit1有单引号，会报错的，可以用Quotedstr()

... 大类='+Quotedstr(edit1.text);