DKLang.pas

  function TDKLang_CompTranslations.FindComponentName(sComponentName: String): TDKLang_CompTranslation;
  var idx: Integer;
  begin
    //AT- 2 lines added
    idx := Pos('_', sComponentName);
    if idx>0 then System.Delete(sComponentName, idx, MaxInt);

    idx := IndexOfComponentName(sComponentName);
    if idx<0 then Result := nil else Result := GetItems(idx);
  end;

