Crear un TPanel dentro de un TPanel dentro de un TScrollBox

[ecfisa]

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