求一個手寫Tadoquery連接dbgrid的代碼___新手求助

Question

界面上只有一個AdoConnection控件和dbgrid控件
query :=TadoQuery.Create(nil);
     query.Connection :=AdoConnection1;
     with query do
     begin
          close;
          sql.clear;
                      sql.text := 'select top 10 1 a ,2 b from  Var_File';
          open;
     end;
     { //以下不報錯  grid 不顯示結果
       //請達人賜教
     with dbgrid1 do
     begin
          enabled := true;
          dstmp := Tdatasource.Create(nil);
          dstmp.DataSet :=query;
          dbgrid1.DataSource := dstmp;
          dstmp.Enabled := true;
          dstmp.autoEdit := true;
     //ds.dataset := query;
     //query.Active := true;
     //dbgrid1.datasource := query;
     end;
     }
     query.Free;