procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject);
begin
Form3:= TForm3.create(self);
Form3.ShowModal;
Form3.Free;
end;