delphi 局部静态变量的使用

procedure TForm1.Button1Click(Sender: TObject);
{$j+}
const a: Integer = 0;
{$j-}
var
  I: Integer;
begin
  for I := 1 to 5 do
  begin
    a := a + I;
   end;
end;