{------------------------------------------------------------------------------} { Unit Name: sectestp Purpose : The main form form seurity test Author : Vesa Lappalainen Date : 09.10.1999 Changed : ToDo : } {------------------------------------------------------------------------------} program sectest2p; uses Forms, sectest2 in '..\sectest2.pas' {FormSecTest2}, sectest3 in 'sectest\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(TFormSecTest2, FormSecTest2); Application.CreateForm(TFormNumerot, FormNumerot); Application.CreateForm(TFormUsers, FormUsers); FormUsers.AddSecurity; Application.Run; end.