有哪位高手会动态生成使用 TRegware 4.02 source for D4~D7

有谁会动态生成使用 TRegware 4.02 source for D4~D7啊
有谁会动态生成使用 TRegware 4.02 source for D4~D7啊
是关于对自己程序加密的
TRegware Shareware Security Component for Delphi
Version 4.02


我现在作为控件使用TRegware 4.02 时,是可以的，没有问题.
因为我现在想制作控件,直接调用使用Regware400.pas, 所以需要动态生成这个控件.
implementation
 var
 Reg : TRegware4;
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Reg := TRegware4.Create(nil);
  Reg.ProgGUID :='{E1537150-4ED8-41F2-BDC7-9C069843D7AD}';
  Reg.Seed1 :=78057134;
  Reg.Seed2 :=71910248;
  Reg.Seed3 :=200588106;
  Reg.LicenseOptions.LicenseSource := lsWindowsIDMod;
  Reg.CheckTamper :=true;
  Reg.Days :=30;
  Reg.MaxChars :=50;
  Reg.MinChars :=5;
  Reg.RegCodeSize :=20;
  Reg.Timebomb :=true;
  Reg.Reload;
 end;
但是每次明明已经注册过了,但是在这里经过create以后,程序又变成没有注册的了.
请问有谁知道该怎么做啊?
  www.****.net 和www.2ccc.com里都有TRegware 4.02 下载,里面也有例子程序.




------解决方案--------------------
我的是这样，没有问题
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, regware4, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
Reg: TRegware4;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Reg := TRegware4.Create(nil);
try
Reg.ProgGUID := '{E1537150-4ED8-41F2-BDC7-9C069843D7AD}';
Reg.Seed1 := 78057134;
Reg.Seed2 := 71910248;
Reg.Seed3 := 200588106;
Reg.LicenseOptions.LicenseSource := lsWindowsIDMod;
Reg.CheckTamper := true;
Reg.Days := 30;
Reg.MaxChars := 50;
Reg.MinChars := 5;
Reg.RegCodeSize := 20;
Reg.Timebomb := true;
Reg.Reload;
finally
Reg.Free;
end;
end;