unit U_globalVar; interface uses Messages; var gUserName:string; gUserId:string; gDllFileName :string; gDllFileCaption :string; gConString:string ; gIsCanDesign:Boolean; const WM_CloseForm = WM_USER + 100 ; implementation end.