problemas al pintar filas con cxGrid v5

[DANY]

la columna 11 es invisible , pero contiene el numero del color.
Funciona bien pero al arrastrar la columna para agrupar me da un error de conversion.
Es que al hacer eso ARecord.Values [11] cambia de columna me toma otro valor.

trate de hacer lo que dice viru de referenciar a la columna por su nombre

Código Delphi [-]
procedure TForm1.wwdbgrid1DBTableView1SexoStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
AColumn: TcxCustomGridTableItem;
begin
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Sexo');
if VarToStr(ARecord.Values[AColumn.Index]) = 'H' then
astyle := cxstyle1;
end;

pero meda error de memoria.

Este es mi codigo:

Código Delphi [-]
procedure TfPlanillaPedidosConsolidados.cxgDetalleDBTableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

begin

    if ARecord.Values [11] <>  NULL then
      cxStyle1.Color := ARecord.Values [11];

    if  ARecord.Values [12] <>  NULL then
    Begin
      if ARecord.Values [12] <> 1 then
        cxStyle1.Font.Style := [fsBold]
      Else
        cxStyle1.Font.Style := [];

      AStyle := cxStyle1 ;

    End;

end;

Saludos...