[Bug 44485] makes Delphi 7 debugger generate new exceptions by itself ( regression)

https://bugs.winehq.org/show_bug.cgi?id=44485

--- Comment #1 from Omega Software  ---
Created attachment 60434
  --> https://bugs.winehq.org/attachment.cgi?id=60434
test program

I'm attaching the test program, just in case someone wants to check. Though
it's not very useful as it can't be used to reproduce the problem.

Source code is the default boilerplate for a TForm application + one line to
raise an exception:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  raise Exception.Create('');
end;