رفع مشکل ستون ی از گرید که نوعش 'CalculatedStatus' است

[matinebi]

من با کد زیر میخوام که با کلیک بر ستون های گرید فیلد ها مرتب شود

procedure Tmain.DBGrid2TitleClick(Column: TColumn);
begin
if (Column.FieldName<>'')and(Column.FieldName <>'CalculatedStatus') then
ADOQuery1.Sort:=Column.DisplayName;
//ADOQuery1.Sort:=Column.FieldName;
end;
اما مشکل در ستونی است که نوعش calcfield است و این ارور رو میده

Item cannot be found in the collection corresponding to the requested name or ordinal.

[K.Mohammadreza]

دوست عزيز فيلدهاي محاسباتي جزء جدول شما نيست. و دستورات شما براي کار روي فيلدهاي Local جدول است نه فيلدهاي مجازي که در دلفي آنها را تعريف کرده ايد

[matinebi]

خوب به نظر شما برای رفع این مشکل باید چطور عمل کرد

[K.Mohammadreza]

دوست عزيز از لينک زير استفاده کن
http://www.delphi32.com/info_facts/faq/faq_67.asp
http://www.programmersheaven.com/mb/delphikylix/269944/269944/sorting-the-calculated-fields-on-tadodataset/?S=B20000

[matinebi]

دوست عزیز در لینک هایی که ارائه کردین من پاسخی پیدا نکردم (البته من با دلفی 7 کار میکنم)
با تشکر