uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {pass};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(Tpass, pass);
//pass为用户登录窗体
pass.ShowModal;
//用户合法性检查
if pass.user.text<>? or pass.password.text<>? then
application.Exit ;