Si señores! Son un valor seguro. La propuesta hecha por Neftali funciona bien.
Código Delphi
[-]
iPosSbHorz:= GetScrollPos((Column.Grid As TSPDBGrid).Handle,SB_HORZ);
...
while GetScrollPos(Handle,SB_HORZ) < iPosSbHorz do
SendMessage(Handle, WM_HSCROLL, SB_LINERIGHT, 0);
Gracias a todos
Sabrían como pintar la "muesca","triángulo"... de ordenación en el encabezado de columna de una TDBGrid?