程序启动验证如何同步进行(50分)

各位大侠，我自己能够做一个启动界面，但我想在主窗口启动之前做一个验证用户合法性的窗口
，但试了好几次都感觉效果不好，我看过几种财务软件，象金蝶的启动界面很好，先是一个启动
的窗口（图形）这个我能做，但主窗口启动完毕后，这时出现一个验证用户合法的窗口，这个是怎么设计
的，或者象管家婆一样启动界面启动后再出现一个验证用户合法性的窗口，如果验证通过再
启动主窗口，不知各位能不能看懂我的意思，请各位大侠帮助下，能不能提供一下源程序。
再次感谢，一个新的

程序的项目文件中加入密码窗体：

{$R *.RES}
Var
hMutex:HWND;
Ret:Integer;
begin
Application.Initialize;
Application.Title := '信息管理系统';
hMutex:=CreateMutex(nil,False,'信息管理系统');//互斥对象
Ret:=GetLastError;
If Ret<>ERROR_ALREADY_EXISTS Then
begin
FmPasswd:=TFmPasswd.create(application);//合法验证窗体
if fmpasswd.showmodal=mrCancel then exit;
welcome:=Twelcome.Create(Application);
welcome.Show;
welcome.Update;
try
Application.CreateForm(Tmainfrm, mainfrm);
finally
welcome.hide;
welcome.free;
end;
Application.Run;
end
else
Application.MessageBox('已有程序在运行!','Notes!',MB_OK);
ReleaseMutex(hMutex);
end.