Source position: GPCStrings.pas line 315
procedure Str32IntoStr32(
const s: Str32;
var theResult: Str32
);