problemas con el DBGrid

[aip]

Tengo el código siguiente:

procedure TfrmNCultivo.dbgConsultaKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{Es agregado para que la columna de totales se mueva cuando se mueva
la columna de consulta}
TStringGrid(dbgTotales).Col:=TStringGrid(dbgConsulta).Col;
dbgTotales.Setfocus;
dbgConsulta.Setfocus;
end;

procedure TfrmNCultivo.dbgTotalesKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{Es agregado para que la columna de consulta se mueva cuando se mueva
la columna de totales}
TStringGrid(dbgConsulta).Col:=TStringGrid(dbgTotales).Col;
dbgConsulta.Setfocus;
dbgTotales.Setfocus;
end;


En ambos DBGrids (dbgConsulta y dbgTotales) tienen dentro, una barra de despliegue horizontal (scrollbar)

¿Qué debo hacer para que al momento de mover la barra de despliegue horizontal de un DBGrid, se mueva automáticamente al mismo tiempo la barra de despliegue horizontal del otro DBGrid en la misma posición (es decir, si la muevo al inicio. la otra se mueva al inicio también cuando lo voy arrastrando con el ratón)?


Gracias