Delphi 7 32-Bit unter Windows 10/11 64-Bit Pro (.DEU und .ENU Dateien) CRASH

[paule32.jk]

Hallo,

ich habe die reinit.pas in das Projekt aufgenommen.
Weiters habe ich unten stehenden Quellcode.
Leider bekomme ich beim aufrufen der Prozedur eine Ausnahme: "Ancestor for '' not found."
Ist da vielleicht ein Fehler in der reinit.pas ?

Gruß, paule

Code:

procedure TForm1.PopupMenu_Tools_Language_GermanClick(Sender: TObject);
const
  GERMAN = (SUBLANG_GERMAN  shl 10) or LANG_GERMAN ;
begin
  try
    if LoadNewResourceModule(GERMAN) <> 0 then
    ReinitializeForms;
  except
    on E: Exception do
    begin
      ShowMessage('Exception occur:' + #13#10 + E.Message);
    end;
  end;
end;