$J相当于C里面的static类型
procedure TForm1.Button1Click(Sender: TObject);const{$J+} i: integer = 0;{$J-}begin ShowMessage(IntToStr(i)); Inc(i);end;