Sprach ID aus Exe auslesen

[Andreas13]

Hallo,
ich habe den Code von Himitsu (#5) und HolgerX (#8) ausprobiert: Kompilieren sowohl für Win32 als auch für Win64 gehen,
ABER

Delphi-Quellcode:

  InfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), InfoSize);
  if InfoSize > 0 then
  begin
  … 

     ShowMessage(Format('Sprach-ID: %.4x, Codepage: %.4x', [LangID, CodePage]));
  end;

InfoSize > 0 ist NUR bei Win32 DEBUG der Fall, NICHT bei Release; Bei Win64 überhaupt nicht.
Das heißt:
ShowMessage(Format('Sprach-ID: %.4x, Codepage: %.4x', [LangID, CodePage])); wird nur ein einziges Mal angezeigt, in den restlichen 3 Fällen überhaupt nicht.

Ist das etwa beabsichtigt, oder mache ich etwas falsch?

[Edit]
Und HolgerX's

Delphi-Quellcode:

for Idx := 0 to Pred(TranslationLen) do
begin
  ShowMessage(Format('Sprach-ID: %.4x, Codepage: %.4x', [Translation.Lang, Translation.CharSet]));
  Inc(Translation);
end;

ergibt eine Endlosschleife