unit Register;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons;

type
  TRegisterForm=class(TForm)
    RegGroup: TGroupBox;
    NameLabel: TLabel;
    CompanyLabel: TLabel;
    KeyLabel: TLabel;
    NameEdit: TEdit;
    CompanyEdit: TEdit;
    KeyEdit: TEdit;
    RegButton: TBitBtn;
    CancelButton: TBitBtn;
    HowToBtn: TButton;
    procedure CancelButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure HowToBtnClick(Sender: TObject);
    procedure RegButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  RegisterForm: TRegisterForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TRegisterForm.CancelButtonClick(Sender: TObject);
begin
{
004B30DC   55                     push    ebp
004B30DD   8BEC                   mov     ebp, esp
004B30DF   83C4F8                 add     esp, -$08
004B30E2   8955F8                 mov     [ebp-$08], edx
004B30E5   8945FC                 mov     [ebp-$04], eax
004B30E8   8B45FC                 mov     eax, [ebp-$04]
004B30EB   E8A880F9FF             call    0044B198
004B30F0   59                     pop     ecx
004B30F1   59                     pop     ecx
004B30F2   5D                     pop     ebp
004B30F3   C3                     ret


}
 end ; 

procedure TRegisterForm.FormShow(Sender: TObject);
begin
{
004B32C8   55                     push    ebp
004B32C9   8BEC                   mov     ebp, esp
004B32CB   83C4EC                 add     esp, -$14
004B32CE   8955F8                 mov     [ebp-$08], edx
004B32D1   8945FC                 mov     [ebp-$04], eax
004B32D4   8D45EC                 lea     eax, [ebp-$14]
004B32D7   8B15F4A74A00           mov     edx, [$4AA7F4]
004B32DD   E89E11F5FF             call    00404480
004B32E2   33C0                   xor     eax, eax
004B32E4   55                     push    ebp
004B32E5   6847334B00             push    $004B3347

***** TRY
|
004B32EA   64FF30                 push    dword ptr fs:[eax]
004B32ED   648920                 mov     fs:[eax], esp
004B32F0   8D45EC                 lea     eax, [ebp-$14]
004B32F3   E83075FFFF             call    004AA828
004B32F8   8B55EC                 mov     edx, [ebp-$14]
004B32FB   8B45FC                 mov     eax, [ebp-$04]
004B32FE   8B80CC020000           mov     eax, [eax+$02CC]
004B3304   E8AFE6F7FF             call    004319B8
004B3309   8B55F0                 mov     edx, [ebp-$10]
004B330C   8B45FC                 mov     eax, [ebp-$04]
004B330F   8B80DC020000           mov     eax, [eax+$02DC]
004B3315   E89EE6F7FF             call    004319B8
004B331A   8B55F4                 mov     edx, [ebp-$0C]
004B331D   8B45FC                 mov     eax, [ebp-$04]
004B3320   8B80D8020000           mov     eax, [eax+$02D8]
004B3326   E88DE6F7FF             call    004319B8
004B332B   33C0                   xor     eax, eax
004B332D   5A                     pop     edx
004B332E   59                     pop     ecx
004B332F   59                     pop     ecx
004B3330   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: "‹å]Ã‹ÀU‹ì3ÀUhy3K"
|
004B3333   684E334B00             push    $004B334E
004B3338   8D45EC                 lea     eax, [ebp-$14]
004B333B   8B15F4A74A00           mov     edx, [$4AA7F4]
004B3341   E80612F5FF             call    0040454C
004B3346   C3                     ret

004B3347   E95403F5FF             jmp     004036A0
004B334C   EBEA                   jmp     004B3338

****** END
|
004B334E   8BE5                   mov     esp, ebp
004B3350   5D                     pop     ebp
004B3351   C3                     ret


}
 end ; 

procedure TRegisterForm.HowToBtnClick(Sender: TObject);
begin
{
004B30F4   55                     push    ebp
004B30F5   8BEC                   mov     ebp, esp
004B30F7   83C4F8                 add     esp, -$08
004B30FA   8955F8                 mov     [ebp-$08], edx
004B30FD   8945FC                 mov     [ebp-$04], eax
004B3100   A1B4CE4C00             mov     eax, dword ptr [$4CCEB4]
004B3105   8B00                   mov     eax, [eax]

* Possible String Reference to: "Registration"
|
004B3107   BA20314B00             mov     edx, $004B3120
004B310C   E8DFBDF9FF             call    0044EEF0
004B3111   59                     pop     ecx
004B3112   59                     pop     ecx
004B3113   5D                     pop     ebp
004B3114   C3                     ret


}
 end ; 

procedure TRegisterForm.RegButtonClick(Sender: TObject);
begin
{
004B3130   55                     push    ebp
004B3131   8BEC                   mov     ebp, esp
004B3133   83C4F0                 add     esp, -$10
004B3136   33C9                   xor     ecx, ecx
004B3138   894DF0                 mov     [ebp-$10], ecx
004B313B   8955F4                 mov     [ebp-$0C], edx
004B313E   8945FC                 mov     [ebp-$04], eax
004B3141   33C0                   xor     eax, eax
004B3143   55                     push    ebp
004B3144   6842324B00             push    $004B3242

***** TRY
|
004B3149   64FF30                 push    dword ptr fs:[eax]
004B314C   648920                 mov     fs:[eax], esp

* Possible String Reference to: "NetBus"
|
004B314F   B958324B00             mov     ecx, $004B3258
004B3154   B201                   mov     dl, $01
004B3156   A1601E4700             mov     eax, dword ptr [$471E60]
004B315B   E894F4FBFF             call    004725F4
004B3160   8945F8                 mov     [ebp-$08], eax
004B3163   33C0                   xor     eax, eax
004B3165   55                     push    ebp
004B3166   68FC314B00             push    $004B31FC

***** TRY
|
004B316B   64FF30                 push    dword ptr fs:[eax]
004B316E   648920                 mov     fs:[eax], esp
004B3171   8D55F0                 lea     edx, [ebp-$10]
004B3174   8B45FC                 mov     eax, [ebp-$04]
004B3177   8B80CC020000           mov     eax, [eax+$02CC]
004B317D   E806E8F7FF             call    00431988
004B3182   8B45F0                 mov     eax, [ebp-$10]
004B3185   50                     push    eax

* Possible String Reference to: "Name"
|
004B3186   B968324B00             mov     ecx, $004B3268

* Possible String Reference to: "License"
|
004B318B   BA78324B00             mov     edx, $004B3278
004B3190   8B45F8                 mov     eax, [ebp-$08]
004B3193   E878F5FBFF             call    00472710
004B3198   8D55F0                 lea     edx, [ebp-$10]
004B319B   8B45FC                 mov     eax, [ebp-$04]
004B319E   8B80DC020000           mov     eax, [eax+$02DC]
004B31A4   E8DFE7F7FF             call    00431988
004B31A9   8B45F0                 mov     eax, [ebp-$10]
004B31AC   50                     push    eax

* Possible String Reference to: "Key"
|
004B31AD   B988324B00             mov     ecx, $004B3288

* Possible String Reference to: "License"
|
004B31B2   BA78324B00             mov     edx, $004B3278
004B31B7   8B45F8                 mov     eax, [ebp-$08]
004B31BA   E851F5FBFF             call    00472710
004B31BF   8D55F0                 lea     edx, [ebp-$10]
004B31C2   8B45FC                 mov     eax, [ebp-$04]
004B31C5   8B80D8020000           mov     eax, [eax+$02D8]
004B31CB   E8B8E7F7FF             call    00431988
004B31D0   8B45F0                 mov     eax, [ebp-$10]
004B31D3   50                     push    eax

* Possible String Reference to: "Company"
|
004B31D4   B994324B00             mov     ecx, $004B3294

* Possible String Reference to: "License"
|
004B31D9   BA78324B00             mov     edx, $004B3278
004B31DE   8B45F8                 mov     eax, [ebp-$08]
004B31E1   E82AF5FBFF             call    00472710
004B31E6   33C0                   xor     eax, eax
004B31E8   5A                     pop     edx
004B31E9   59                     pop     ecx
004B31EA   59                     pop     ecx
004B31EB   648910                 mov     fs:[eax], edx

****** FINALLY
|
004B31EE   6803324B00             push    $004B3203
004B31F3   8B45F8                 mov     eax, [ebp-$08]
004B31F6   E8F1FDF4FF             call    00402FEC
004B31FB   C3                     ret

004B31FC   E99F04F5FF             jmp     004036A0
004B3201   EBF0                   jmp     004B31F3
004B3203   E85877FFFF             call    004AA960
004B3208   84C0                   test    al, al
004B320A   7418                   jz      004B3224
004B320C   6A40                   push    $40

* Possible String Reference to: "Thanks"
|
004B320E   B99C324B00             mov     ecx, $004B329C

* Possible String Reference to: "Thanks for registering NetBus Pro."
|
004B3213   BAA4324B00             mov     edx, $004B32A4
004B3218   A1B4CE4C00             mov     eax, dword ptr [$4CCEB4]
004B321D   8B00                   mov     eax, [eax]
004B321F   E85CB9F9FF             call    0044EB80
004B3224   8B45FC                 mov     eax, [ebp-$04]
004B3227   E86C7FF9FF             call    0044B198
004B322C   33C0                   xor     eax, eax
004B322E   5A                     pop     edx
004B322F   59                     pop     ecx
004B3230   59                     pop     ecx
004B3231   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: "‹å]Ã"
|
004B3234   6849324B00             push    $004B3249
004B3239   8D45F0                 lea     eax, [ebp-$10]
004B323C   E83F0AF5FF             call    00403C80
004B3241   C3                     ret

004B3242   E95904F5FF             jmp     004036A0
004B3247   EBF0                   jmp     004B3239

****** END
|
004B3249   8BE5                   mov     esp, ebp
004B324B   5D                     pop     ebp
004B324C   C3                     ret


}
 end ; 

end.
