DELPHI中如何使用“静态变量”

Delphi(pascal)不像c中可以直接使用static来声明变量为静态的，但是并不是说在delphi中就没有解决方法了，具体解决方法如下：

procedure ......
var
   ......
{$j+}
     const  iVar : integer = 0;               //声明静态变量
{$j-} 
begin
    inc(iVar);              //使静态变量加一
    showmessage(inttostr(iVar));
end;