Desplazar ScrollBar de TDBGrid

[eureka]

Saludos,

Se presenta una DBGrid ligada a un TQuery. Despues de hacer un Close y un Open sobre la query, quiero mantener la posicion de la Scrollbar horizontal en la misma posición que tenia antes de realizar el Close.

He intentado utilizar Grid.ScrollBy, pero sin exito.

El siguiente codigo mueve la scrollbar pero con ella no se desplaza el contenido de la grid.

Código Delphi [-]
iPosSbHorz:= GetScrollPos((Column.Grid As TDBGrid).Handle,SB_HORZ);
Query.Close;
Query.Open;
SetScrollPos((Column.Grid As TDBGrid).Handle,SB_HORZ,iPosSbHorz,True);

Gracias por su tiempo y sugerencias