如何运用函数查询数据库内容，并把结果显示到dbgrid？

Question

我先把sql查询语句写成函数，通过调用函数，把结果显示到dbgrid中，不知道如何去做？还请大家帮忙
function Tform1.namey(sbid:string):integer;
var query:adoquery；
begin
  { 中间应该如何写？}   
end;
sql语句=select 设备参数,字段值 form  sb where  设备代码:=sbid调用语句: namey('0101001');
调用以后，dbgrid没有所要显示的查询结果？请高手帮忙解决？在此非常感谢！

Answer 1

function TForm1.namey(sbid: string): TADOQuery;
var
  query: TADOQuery；
begin
  query := TADOQuery.Create(nil);
  try
    with query do
    begin
      Connection := '';
      close;
      sql.text := 'select 设备参数,字段值 form  sb where  设备代码 = ''' + sbid + '''';
      open;
    end;
    result := query;
  finally
    query.free;
  end;
end;//调用语句
  adoquery := namey('')

Answer 2

不是就是把dbgrid1的datasourse指向与query相关联的datasourse吗?

Answer 3

//调用语句 
  adoquery := namey('')
这个语句提示不能运行！
而且还是没有得到查询结果！