TCodeGenerateFrm

type TCodeGenerateFrm = class(TForm)

  OKBtn: TBitBtn;

  CancelBtn: TBitBtn;

  CodesNbk: TPageControl;

  TabSheet1: TTabSheet;

  TabSheet2: TTabSheet;

  TabSheet3: TTabSheet;

  TabSheet4: TTabSheet;

  TabSheet5: TTabSheet;

  TabSheet6: TTabSheet;

  TabSheet7: TTabSheet;

  Label9: TLabel;

  Label11: TLabel;

  Label13: TLabel;

  Label2: TLabel;

  Label6: TLabel;

  RegRandomBtn: TButton;

  Label4: TLabel;

  RegStrCopySb: TSpeedButton;

  Label7: TLabel;

  Label15: TLabel;

  SerRandomBtn: TButton;

  Label14: TLabel;

  Label17: TLabel;

  Label10: TLabel;

  Label12: TLabel;

  Label19: TLabel;

  GroupBox1: TGroupBox;

  NoModifierCb: TCheckBox;

  MachineModifierCb: TCheckBox;

  UniqueModifierCb: TCheckBox;

  DateModifierCb: TCheckBox;

  StringModifierCb: TCheckBox;

  Label1: TLabel;

  Label5: TLabel;

  GenerateKeySb: TSpeedButton;

  GroupBox2: TGroupBox;

  GenerateBtn: TButton;

  RegCodeCopySb: TSpeedButton;

  ModDateEd: TEdit;

  ModStringEd: TEdit;

  ModifierEd: TEdit;

  BlockKeyEd: TEdit;

  RegCodeEd: TEdit;

  StartDateEd: TEdit;

  EndDateEd: TEdit;

  DaysCountEd: TEdit;

  DaysExpiresEd: TEdit;

  RegStrEd: TEdit;

  RegExpiresEd: TEdit;

  SerialNumberEd: TEdit;

  SerialExpiresEd: TEdit;

  UsageCountEd: TEdit;

  UsageExpiresEd: TEdit;

  NetworkSlotsEd: TEdit;

  SpecialDataEd: TEdit;

  SpecialExpiresEd: TEdit;

  procedure FormCreate();

  procedure FormShow();

  procedure GenerateBtnClick();

  procedure InfoChanged();

  procedure RegCodeCopySbClick();

  procedure ParametersChanged();

  procedure ModifierEdKeyPress();

  procedure ModifierClick();

  procedure DateEdKeyPress();

  procedure GenerateKeySbClick();

  procedure NumberKeyEdPress();

  procedure RegStrCopySbClick();

  procedure RegRandomBtnClick();

  procedure CodesNbkChanging();

  procedure SerRandomBtnClick();

public

  procedure SetKey();

  procedure GetKey();

  property Code: TCode; [r]

  property CodeType: TCodeType; [rw]

  property KeyFileName: string; [rw]

  property KeyType: TKeyType; [rw]

end;

TCodeGenerateFrm

TObject