[Bug 13411] setup_exception_record stack overflow in Teach2000

http://bugs.winehq.org/show_bug.cgi?id=13411

--- Comment #4 from bas   2008-12-19 13:08:17 ---
Created an attachment (id=18072)
 --> (http://bugs.winehq.org/attachment.cgi?id=18072)
Delphi executable which shows the problem

Thanks. I am amazed by this detailed description of the problem.

I attached a minimal Delphi 2007 application which has the same behavior. This
is not a problem of Teach2000 but it is a problem with the StatusBar of Tnt
Unicode Controls.
The attachment is an empty form with only a TntStatusBar.

In the Create I set the text of the contained panes:

procedure TForm13.FormCreate(Sender: TObject);
begin
  TntStatusBar1.Panels[0].Text := 'Test';
  TntStatusBar1.Panels[1].Text := 'with';
  TntStatusBar1.Panels[2].Text := 'Wine';
end;

Without this I don't get an access violation.

Steps:
Open the application in the attachment.
Close it.

Exp: No access violation.
Act: Access violation.