最好是放在一个没有表单的公共单元里（菜单file-new-unit）。包括公共函数、过程也都
可以在这里定义。要使用这些变量或函数的单元只需要uses一下这个单元即可。例子如下：
unit PubUnit;
interface
uses Windwos,Messages,SysUtils,Registry.......;
var G_AppDirect:string
//公共变量
G_integer:integer;
function iif(B:boolean,Tj1,Tj2:Variant):Variant
//公共函数
implementation
function iif(B:boolean;Tj1,Tj2:Variant):Variant;
begin
if B=true then
Result:=Tj1
else Result:=Tj2;
end;
end.
