// Load Language and translate from stream
procedure TDKLanguageManager.TranslateFromStream(tntStream: TMemoryStream);
var
 Tran: TDKLang_CompTranslations;
begin
  Tran := nil;
  try
    FSynchronizer.BeginWrite;
    try
     // Try to obtain the Translations object
     Tran := TDKLang_CompTranslations.Create;
     tntStream.Position := 0;
     Tran.Text_LoadFromStream(tntStream, false);
     FLanguageID := StrToIntDef(Tran.Params.Values[SDKLang_TranParam_LangID], ILangID_USEnglish);
     UpdateCodePage;
    finally
     FSynchronizer.EndWrite;
    end;
     // Apply the language change after synchronizing ends because applying might require constants etc.
     ApplyTran(Tran);
    finally
      Tran.Free;
    end;
end;