排序问题,请进

procedure TYWDCDForm.DBGridEh1TitleClick(Column: TColumnEh);
var Sort:string;
    book2:Tbook;
begin
  with Column do
  if Field <> nil then
  if Field.DataSet is TADOQuery then
  with Field.DataSet as TADOQuery do
  if Active then
  Try
  Screen.Cursor:=crhourGlass;
  if DataM.AQYWDCD.State in [dsedit,dsinsert] then DataM.AQYWDCD.Post;
  if tag = 0 then
    begin
      Sort:='Order by ' + Column.FieldName + ' desc';
      Column.Title.SortMarker:=smDownEh;
      tag:=1;
    end
    else
    begin
      Sort:='Order by ' + Column.FieldName + ' Asc';
      Column.Title.SortMarker:=smUpEh;
      tag:=0 ;
    end;
/////////
  book2:=DataM.AQYWDCD.Getbook;
  DataM.AQYWDCD.DisableControls;
  with DataM.AQYWDCD do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from YWDCD');
    SQL.Add(Sort);
    Open;
  end;
  DataM.AQYWDCD.GotoBookMark(book2);
  DataM.AQYWDCD.EnableControls;
  DataM.AQYWDCD.FreeBookMark(book2);
  Finally
     Screen.Cursor:=crDefault;
  end;
end;各位好:本人想通过以上这段代码在表格控件中单击标题栏实现排序,ADO控件放在了Data Module中,编译时提示:[Hint] YWDCDUnit.pas(115): Variable 'Sort' is declared but never used in 'TYWDCDForm.DBGridEh1TitleClick',而在运行时单击表格标题时提示:参数类型不正确,或不在可接受的范围之内,或与其他参数冲突.请各位帮忙分析分析,指点一二,多谢啦!!!若成功解决问题必给分.