constructor TProgressBar1.create(AOwner:Tcomponent);
begin
     inherited create(AOwner);
     FPanel:=TPanel.Create(AOwner);
......................
end;

unit PanelVideo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,comctrls;

type
  TPanelVideo = class(TPanel)
  private
  FProgressBar:TProgressBar;
    { Private declarations }
  protected
    { Protected declarations }
  public
   constructor create (AOwner:TComponent); override;
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComponents ', [TPanelVideo]);
end;
 constructor TPanelVideo.create(AOwner:Tcomponent);
begin
     inherited create(AOwner);
     FProgressBar:=TProgressBar.Create(AOwner);
     FProgressBar.parent:=self;
end;
end.