Source position: GPCStrings.pas line 332
procedure StringIntoStr32(
const s: string;
var theResult: Str32
);