initialization (预设值) 出错要怎么解决?

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  count : Integer;begin
  count := count +1;
  Edit1.Text := IntToStr(count);end;  initialization
  count := 0;             <---显示这里出错。。end.我想Edit1 每次都会更新显示 count 值，当每按一次。

Answer 1

Var 
  Count: Integer;
  Form1: TForm1;procedure TForm1.Button1Click(Sender: TObject);
//var
//  count : Integer;
begin
  count := count +1;
  Edit1.Text := IntToStr(count);end;  initialization
  count := 0;             <---显示这里出错。。end.

Answer 2

unit Unit2;interfacetype
  TTest = class
    function PNa(x : Integer) : Integer;
    function PVar(var x : Integer) : Integer;
    function PConst(const x : Integer) : Integer;
    function POut(out x : Integer) : Integer;
  end;implementation{ TTest }
function TTest.PConst(const x: Integer): Integer;
begin
  Result := x;
end;function TTest.PNa(x: Integer): Integer;
begin
  Result := x;
end;function TTest.POut(out x: Integer): Integer;
begin
  Result := x;
end;function TTest.PVar(var x: Integer): Integer;
begin
  Result := x;
end;
end.
var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}var
  count : Integer;procedure TForm1.Button1Click(Sender: TObject);
var
  Test : TTest;
  n : Integer;begin
  Test := TTest.Create;
  count := count +1;
  n := Test.PNa(count);
  Edit1.Text := IntToStr(n);
end;procedure TForm1.Button2Click(Sender: TObject);
var
  TestVar : TTest;
  n : Integer;begin
  TestVar := TTest.Create;
  count := count +1;
  n := TestVar.PVar(count);
  Edit1.Text := IntToStr(n);
end;procedure TForm1.Button3Click(Sender: TObject);
var
  TestConst : TTest;
  n : Integer;begin
  TestConst := TTest.Create;
  count := count +1;
  n := TestConst.PConst(count);
  Edit1.Text := IntToStr(n);
end;procedure TForm1.Button4Click(Sender: TObject);
var
  TestOut : TTest;
  n : Integer;begin
  TestOut := TTest.Create;
  count := count +1;
  n := TestOut.POut(count);
  Edit1.Text := IntToStr(n);
end;initialization
  count := 0;
end.关于“万一”所说的 “默认参数(传值)、var(传址)、out(输出)、const(常数)”
http://www.cnblogs.com/del/archive/2008/01/14/1038838.html以上的代码都是参考“万一”，而设立的。
我想试一试它们的分别，但没有结果。因为全部功能都一样。
这个所谓的“参数前缀”， 谁可帮我分别？？

Answer 3

initialization
  count := 0;
finalization
end.