{ %OPT=-Seh }
program Test;
uses SysUtils;
var
  FS: TFormatSettings;
begin
  FS := DefaultFormatSettings;
end.