Problem sa on-the-fly promenom jezika u delphiju

[jddipqd]

[code:1]
function RefreshFormFace(AForm: TForm; Language: string): Boolean;
var
LoadSuccess: integer;
begin
result := false;
LoadSuccess := 0;
LoadSuccess := LoadNewResourceModule((SUBLANG_SERBIAN_CYRILLIC shl 10) or LANG_SERBIAN);
if LoadSuccess <> 0 then
ReinitializeForms;
result := true;
end;
[/code:1]

Gde se 'LoadNewResourceModule' i 'ReinitializeForms' nalaze u $(DELPHI)\Demos\RichEdit\reinit.pas

Ako je pri pokretanju aplikacije system locale Serbian (Cyrillic), ili je u registriju namešten u HKCU\Software\Borland\Locales, sve radi kako treba pri kasnijim on-the-fly promenama jezika. Međutim ako je sistemski jezik neki drugi, ili u registriju stoji nešto drugo, pri on-the-fly promeni na Serbian(Cyrillic) program podiže exception:
class EReadError
Ancestor for 'grpLanguage' not found

(Podiže exception samo pri promeni na Serbian(Cyrillic), na English i Serbian (Latin) ne)