ScrollBar i przesuwanie obiektu Shape

Witam

Mam na Formatce komponent Shape1 ( koło ) no i ScrollBar1 ( suwak )

Chce suwakiem przesuwać obiekt Shape1 i wszystko jest w porządku, natomiast nie mogę wyobrazić sobie jakie dać warunki aby Shape1 nie wyjechał po za Formatke.

Oto kod:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Shape1->Left=Form1->Width/2-Shape1->Width/2;
Shape1->Top=Form1->Top/2+Shape1->Top;
ScrollBar1->Max=Form1->Width-Shape1->Width;
ScrollBar1->Position=Shape1->Left;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
int x=ScrollBar1->Position;
Shape1->Left=x;
}