procedure TLang.SetLang(const Value: string);
begin
FLang := Value;
if not(csLoading in ComponentState) then
begin
if FLang = 'en' then
ResetLang
else
LoadLangFromStrings(LangStr[FLang]);
end;
end;

这个 Delphi 官方出来的 TLang 控件的代码，里面居然硬编码默认语言是 en，而且还一定要是小写。而且它公开的属性或者方法里面，没有恢复到默认语言的项目。