Const
INDICE_DEFAULT = 'DEFAULT_ORDER';
GRID_COR_INDICE_TITULO = clCream;
procedure CliqueNoTitulo(Column: TColumn);
var
strColumn: string;
x: integer;
JaEstaEmUso: Boolean;
idOptions: TIndexOptions;
dbgrGrid: TDbGrid;
begin
dbgrGrid := TDbGrid(Column.Grid);
with dbgrGrid.DataSource.DataSet do
begin
strColumn := INDICE_DEFAULT;
{ Se for um campo calculado não faz nada }
if ( Column.Field.FieldKind = fkCalculated )
...