program RandomKey; uses QForms, uUserLogin in 'uUserLogin.pas' {frmUserLogin}, uEnCode in 'uEnCode.pas' {FrmEnCode}, DESCrypt in 'Public/DESCrypt.pas', SQLiteTable3 in 'sqlite/SQLiteTable3.pas', SQLite3 in 'sqlite/SQLite3.pas', CommTool in 'Public/CommTool.pas', uPublic in 'Public/uPublic.pas'; {$R *.res} begin Application.Initialize; Application.Title := 'Code'; Application.CreateForm(TfrmUserLogin, frmUserLogin); //frmUserLogin.Show; //FrmEnCode := TFrmEnCode.Create(nil); //FrmEnCode.CALC_CODE; //FrmEnCode.ShowModal; Application.Run; end.