Source position: GPCStrings.pas line 303
procedure Str31IntoStr32(
const s: Str31;
var theResult: Str32
);