ScrollBox + ScrollBar

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ScrollBar1->Max = ScrollBox1->VertScrollBar->Range / 2;
}
 
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
    ScrollBox1->VertScrollBar->Position = ScrollBar1->Position;
}

namespace My_ScrollBar
{
    class TScrollBar : public Stdctrls::TScrollBar
    {
        int FScrolled;
    public:
        __fastcall virtual TScrollBar(Classes::TComponent* AOwner)
            : Stdctrls::TScrollBar(AOwner) {}
 
        __property int Scrolled = {read=FScrolled, write=FScrolled};
    };
};
#define TScrollBar My_ScrollBar::TScrollBar
 
class TForm1 : public TForm

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ScrollBox1->HorzScrollBar->Visible = false;
    hBar->Max = ScrollBox1->HorzScrollBar->Range / 2; // hBar - это горизонтальный скролл, лежащий отдельно
    ScrollBox1->VertScrollBar->Visible = false;
    vBar->Max = ScrollBox1->VertScrollBar->Range / 2; // соответственно, vBar - вертикальный...
}
 
// и обработка прокрутки скроллов:
void __fastcall TForm1::hBarScroll(TObject *Sender, TScrollCode ScrollCode, int &ScrollPos)
 
{
    int dx = ScrollPos - hBar->Scrolled;
    ScrollBox1->ScrollBy(-dx, 0);
    hBar->Scrolled = ScrollPos;
}
 
void __fastcall TForm1::vBarScroll(TObject *Sender, TScrollCode ScrollCode, int &ScrollPos)
 
{
    int dy = ScrollPos - vBar->Scrolled;
    ScrollBox1->ScrollBy(0, -dy);
    vBar->Scrolled = ScrollPos;
}