Evento VertScrollBar entre un DBGrid y un ScrollBox

[ludan508]

Que tal..!!!

alguien que pueda apoyarme en este problema...
tengo un DBGrid junto con un ScrollBox, en el DBGrid visualizo la información del ADOQuery y en el ScrollBox agrego el objeto TShape visualizado como una grafica...!!

todo va bien cuando son muy pocos datos... pero cuando ya excede de mas de 20 datos, no puedo desplazarme entre el DBGrid y ScrollBox...

la finalidad es cuando alguien se mueva con las teclas Up y Down en el DBGrid, tambien el ScrollBox se este desplanzando en su scrollbar, tengo esto que me ayuda... pero no funciona correctamente..

esta en el evento OnShortCut en la forma

Código Delphi [-]
case Msg.CharCode of
    VK_UP: scrollbox.VertScrollBar.Position := scrollbox.VertScrollBar.Position - 18;
    VK_DOWN: scrollbox.VertScrollBar.Position := scrollbox.VertScrollBar.Position + 18;
end;

Mi objetivo es encontre la posicion del ScrollBar de un DBGrid para este poder sumarlo o restarlo con el VertScrollBar.Position de mi ScrollBox