Try Except und Re raise geht nicht

[Gruber_Hans_12345]

geht das nicht auch so?

ohne zu testen und ohne zu wissen obs besser wäre

Delphi-Quellcode:

initialization
  try
    Session := TVSession.Create(nil);
  except
    On E:Exception do begin
      e.Message := 'Error in DBDLL_Fn.initialization: '+e.message;
      raise;
    end;
  end;
end.