mover ScrollBox para centrar un TImage en pantalla

[Snaked]

hola ecfisa....que tal.....como va todo???

tengo una dudilla aqui a ver si me echas un cable....

te explico...tengo un TImage sobre un ScrollBox y cuando pulso las teclas de cursores, pinto un Cursor sobre el timage mediante Canvas->Draw() la cuestion es que el TImage es mas grande que la zona que se ve en pantalla y queria que cuando el cursor que pinto, alcance el ancho dado, el Scrollbox se desplace un trozo para que el cursor no desaparezca por el borde del limite del ancho de la imagen

un saludo y gracias

el codigo que tengo ahora es este pero se que no esta bien, el caso es que me he levantado hace poco y aun estoy "espeso" en cuanto a pensar un poco en ello jejejej

if(MAP_CURSORX * 32 >987) sScrollBox1->ScrollBy(800, 0);
if(MAP_CURSORY * 32 >292) sScrollBox1->ScrollBy(0, 290);
Form1->Image1->Canvas->Draw(MAP_CURSORX * 32, MAP_CURSORY * 32, Form2->Image2->Picture->Graphic);