مرتب سازی memtable در دلفی روی گرید

مرتب سازی memtable در دلفی روی گرید به صورت زیر عمل میکنیم

procedure TFmTransferInfo.DBGridEh1TitleClick(Column: TColumnEh);

begin

    if not(DBGridEh1.DataSource.DataSet.Active) then

      Exit;

    if Column.Field.Calculated then

      Exit;

    case Column.Title.SortMarker of

    smNoneEh:

       begin

             Column.Title.SortMarker := smDownEh;

             MemTableEh1.SortByFields(Column.FieldName+' DESC');

       end;

    smDownEh:

       begin

            Column.Title.SortMarker := smUpEh;

            MemTableEh1.SortByFields(Column.FieldName+' ASC');

       end;

    smUpEh:

       begin

            Column.Title.SortMarker := smNoneEh;

            MemTableEh1.SortByFields('');

       end;

       end;

end;