delphi中的静态变量

众所周知,java,vb,c和c++中都有静态变量,它们都在变量前加上static，在delphi中没有static关键字来声明静态变量，要怎样声明呢？具体解决方法如下：
procedure staticVar
var
{$j+}
     const  iVar : integer = 0;    //声明静态变量
{$j-}
begin
    inc(iVar);              //使静态变量加一
    showmessage(inttostr(iVar));
end;