Source position: GPCStrings.pas line 326
procedure StringIntoStr15(
const s: string;
var theResult: Str15
);