procedure TForm2.FormCreate(Sender: TObject);
begin
   advpanel1.Caption.Text := ''<p align="left" float="left">Product A</p><p align="right">123.456<a href="test"><img src="idx:0"></a></p>'';
end;

type
  TMyCustomPanel = class(TAdvPanel)
  private
    FButton: TButton;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Button: TButton read FButton;
  end;


{ TMyCustomPanel }

constructor TMyCustomPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FButton := TButton.Create(Self);
  FButton.Parent := Self;
  FButton.Top := 30;
  FButton.Left := 20;
  FButton.Caption := ''OK'';
end;

destructor TMyCustomPanel.Destroy;
begin
  FButton.Free;
  inherited;
end;

begin
  AdvPanelGroup1.PanelClass := TMyCustomPanel;
  AdvPanelGroup1.AddPanel;
end;