Error Al Ordenar Un Rxdbgrid Titlebtn

[dago_Ariza]

Empezado por dago_Ariza

No Entiendo, Hermano Agradezco Tu Cooperacion..pero La Verdad No Entiendo!.

ES DECIR, TENGO UN PROCEDURE QUE TIENE ESTO:
rocedure TTIPO_SERVICIO_FRM.DefineOrden(str :string);
var i : integer;
M : TSortMarker;
begin
i := 0;
// DM1.TIPOS_SERVICIOS.IndexName := 'ID_TIPO_SERVICIO';
while str <> Campos[i] do inc(i);
case orden[i] of
smNone : M := smDown;
smDown : M := smUp;
smUp : M := smNone;
else M := smNone;
end;
orden[i] := M;
end;


DONDE LE CAMBIO DE INDICES?