{------------------------------------------------------------------------------}
{
   Unit Name: sectestp
   Purpose  : The main form form seurity test
   Author   : Vesa Lappalainen
   Date     : 09.10.1999
   Changed  :

   ToDo     :            
}
{------------------------------------------------------------------------------}

program sectestp;

uses
  Forms,
  sectest in 'sectest.pas' {FormSecTest},
  datamodule in 'datamodule.pas' {DataModule1: TDataModule},
  sectest2 in '..\..\sectest2.pas' {FormSecTest2},
  sectest3 in 'sectest3.pas' {FormSectest3},
  numerot in '..\..\numerot.pas' {FormNumerot},
  KUsers in '..\..\..\source\KUsers.pas' {FormUsers};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TFormSectest3, FormSectest3);
  Application.CreateForm(TFormSecTest, FormSecTest);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TFormSecTest2, FormSecTest2);
  Application.CreateForm(TFormNumerot, FormNumerot);
  Application.CreateForm(TFormUsers, FormUsers);
  if ( not FormUsers.AddSecurity ) then exit;
  Application.Run;
end.