怎么样把sql语句查找到的内容，添加到dbmemo1.text中
具体代码如下
procedure TForm1.Button1Click(Sender: TObject);
const
C_SQL = 'select neirong from aa where tihao="1" ';
begin
with form1.ADOQuery1 do
ADOQuery1.Active:=true;
dbmemo1.Text:=c_sql;
dbmemo1.Font.Size:=10;
end;

老是有报错！！

如果要求助，将代码和出错内容都帖上来

with form1.ADOQuery1 do
ADOQuery1.Active:=true;
dbmemo1.Text:=c_sql;
dbmemo1.Font.Size:=10;
***************
with XXX do
begin
//代码
end;