最好的办法是放在一个无窗体的公共单元中，这样就可以在调用的时候不用加窗体名，更
加省事，你只需uses一下公共单元名就行了。具体作法是：
菜单file-new，然后在new页面中选unit，然后在unit的interface后加公共变量定义，如有
必要，前面还要加uses 相关部分，如下：
unit PublicUnit;
interface
uses Windows, Messages, SysUtils, Registry, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls,ADODb,DB, StdCtrls, Grids, Aligrid,CheckLst,Buttons, ExtCtrls,Winprocs;
var G_AppDirect,G_DcUser:string; //应用程序目录全局变量,当前用户
G_String:string; //通用字符变量.
G_Integer:integer; //通用数值变量.
G_Bool:boolean; //通用逻辑变量.
G_float:real; //通用浮点变量
