Erro - List index out of bounds - DbGrid

Estou usando esta procedure publiucada na revista nº 44, ela funciona legal, mas quando vc saeleciona uma coluna, está tudo certo, mas se vc mudar para uma outra coluna dá este erro

o que devo fazer

procedure TFormEProdutos.DBGrid1TitleClick(Column: TColumn);
begin


If dm.CProdutos.IndexFieldNames <> ´´ then

FormEprodutos.DBGrid1.Columns[dm.CProdutos.FieldByName(dm.CProdutos.IndexFieldNames).Index].Title.Color:=dbgrid1.FixedColor;

if not (column.Field.DataType in [ftblob, ftmemo]) then
if Column.Field.FieldKind = fkdata then
Begin
dm.CProdutos.IndexFieldNames := column.FieldName;
column.Title.Color := $00FFEFDF;
END;

END;
// dm.CProdutos.IndexFieldNames:=column.FieldName;
// end;