delphi order by排序问题：请各位帮检查一写法有何错误，谢谢

Question

procedure TForm8.Button2Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('select * from insp order by');
ADOQuery1.SQL.add(ADOQuery1.FieldCount.Items[ComBoBox1.ItemIndex].FieldName);
if CheckBox1.Checked then
begin
ADOQuery1.SQL.Add('Desc');
end;
end;请帮我看下红色的一行有什么错误，谢谢！

Answer 1

ADOQuery1.SQL.add(ADOQuery1.Fields[ComBoBox1.ItemIndex].FieldName);

Answer 2

感谢，不管test未test，先加分！

Answer 3

其实这样写是有缺陷的,要取ADOQuery1的列
1.必须是ADOQuery1在打开状态
2.或者是已经添加进来的列(即在设计期,双击ADOQuery1,右键Add Fields,把列名添加进来)所以改进办法:
可以按上面说的第2点,先添加进来;要不然就改变ComBoBox1值