Wann werden Exception-Objekte freigegeben?

[littleDave]

Gerade ausprobiert:

Delphi-Quellcode:

type
  EMyException = class(Exception)
  public
    destructor Destroy; override;
  end;

destructor EMyException.Destroy;
begin
  ShowMessage('Destroy');
  inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    raise EMyException.Create('Test');
  except
    on e:Exception do
      ShowMessage('OnExcept');
  end;
  ShowMessage('End');
end;

Reihenfolge: OnExcept -> Destroy -> End