packages/fcl-base/src/gettext.pp ```pascal if fileexists(fn) then begin try mo := TMOFile.Create(fn); try TranslateResourceStrings(mo); finally mo.Free; end; except on e: Exception do; end; end; lang := Copy(lang, 1, 5); fn:=Format(AFilename, [lang]); if fileexists(fn) then begin try mo := TMOFile.Create(Format(AFilename, [lang])); try TranslateResourceStrings(mo); finally mo.Free; end; except on e: Exception do; end; end; end; ``` Here you see 2 places where try/except just hides all errors. Not good. E.g. we may have AV there, it will be hidden. Or some logic error. Totally 4 places of hidden exceptions: - 2 at TranslateResourceStrings - 2 at TranslateUnitResourceStrings