为何给ADOQuery1新添的栏位无法在DBGrid中显示?

Question

sql_str:='select 代码,名称 from TBL'
with ADOQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.add(sql_str);
    open;
  end;ADOQuery1.FieldDefs.Add('使用权限',ftstring,10,False);
DataSource1.dataset:=ADOQuery1;
DBgridEh1.datasource:=DataSource1;
但DBgridEh1中就是不会显示新栏位"使用权限"。请教各位,正确的写法该如何? 谢谢!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  sql_str : string;
begin
  sql_str:='select StartTime ,EndTime from busytime';
  with ADOQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.add(sql_str);
    open;
  end;
  DataSource1.dataset:=ADOQuery1;
  DBgridEh1.datasource:=DataSource1;
  DBGridEh1.Columns.Add;
  DBGridEh1.Columns.Items[2].Title.Caption:='使用权限'end;

Answer 2

谢谢 cdsgajxlp(起名很难) 的回答. 
可是呢,您的这个方法并没有给ADOquery1增加一栏,因为后面还要为字段"使用权限"赋值,比如是"无权使用"之类的值,并依据此栏位的值去定位记录----到一条有权限的记录上. 前面该如何做呢?