procedure TfrmMain.FormCreate(Sender: TObject);
begin
Application.CreateForm(TfrmLogin, frmLogin);
if frmLogin.ShowModal =mrok then
freeAndnil(frmLogin);
end;
procedure TfrmLogin.Bt_OKClick(Sender: TObject);
begin
if EdPassWord.Text ='123456789' then
self.ModalResult:=mrok;
end;
///////程序一