Static 변수 사용하기

procedure TForm1.Button1Click(Sender: TObject);
const
{$J+}
  aaa: integer = 1;
{$J-}

begin
  caption := inttostr(aaa);
  aaa := aaa + 1;
end;