Warum AccessViolation?

[moin339]

Moin!

Ich habe hier ein kleines testprogramm. Wenn ich zuerst auf Button1 und dannach auf Button2 klicke bekomme ich eine AccessViolation, obwohl die Variable eigentlich definiert ist. Wisst ihr wodran das liegt?

Delphi-Quellcode:

  TTest = class
  private
    TestString : string;
  public
    constructor create;
    procedure ShowString;
  end;

var
  Form1 : TForm1;
  test  : TTest;

implementation

{$R *.dfm}

constructor TTest.create;
begin
  TestString := 'Hallo';

  while true do
  begin
    Application.ProcessMessages;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test := TTest.create;
  test.free;
end;

procedure TTest.ShowString;
begin
  ShowMessage(TestString);  // Exception: EAccessViolation
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  test.ShowString;
end;

ciao, moin399