Creando un componente tipo Tform

[Ryu]

este componente no esta completo solo esta completo

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Security,DesignIntf;

type
  Tmegaform = class(Tform)
  private
    { Private declarations }
    name:string;
  public
    constructor Create(AOwner: TComponent); override;

    { Public declarations}
  Published

  end;

procedure Register;

var
 megaform: Tform;

implementation

{$R *.dfm}

procedure Register;
begin
  RegisterComponents('TSECURITY', [Tmegaform]);
  
end;

constructor Tmegaform.Create(Aowner:TComponent);
begin
 inherited Create(Aowner);
end;

end.