delphi中的静态变量

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