if not Assigned(frmAppServer) then
frmAppServer := TfrmAppServer.Create(Application);
frmAppServer.ShowModal;