Hola tiammat.
Fijate si este ejemplo te sirve de guía:
Código Delphi
[-]
...
var
SBox: TScrollBox;
Pnl1,Pnl2: TPanel;
procedure TForm1.Button1Click(Sender: TObject);
begin
SBox:= TScrollBox.Create(Self);
SBox.Name:= 'DynSCrollBox';
SBox.Width:= 450;
SBox.Align:= alRight;
SBox.Parent:= Self;
Pnl1:= TPanel.Create(Self);
Pnl1.Name:= 'DynPanel1';
Pnl1.BevelInner:= bvNone;
Pnl1.BevelOuter:= bvNone;
Pnl1.Ctl3D:= False;
Pnl1.Width:= 300;
Pnl1.Height:= 300;
Pnl1.Left:= (SBox.Width - Pnl1.Width) div 2;
Pnl1.Top:= (SBox.Height - Pnl1.Height) div 2;
Pnl1.Color:= clBlack;
Pnl1.Parent:= SBox;
Pnl2:= TPanel.Create(Self);
Pnl2.Name:= 'DynPanel2';
Pnl2.BevelInner:= bvNone;
Pnl2.BevelOuter:= bvNone;
Pnl2.Ctl3D:= False;
Pnl2.Width:= 250;
Pnl2.Height:= 250;
Pnl2.Left:= (Pnl1.Width - Pnl2.Width) div 2;
Pnl2.Top:= (Pnl1.Height - Pnl2.Height) div 2;
Pnl2.Color:= clRed;
Pnl2.Parent:= Pnl1;
end;
....
Saludos