Source position: GPCStrings.pas line 296
procedure Str15IntoStr31(
const s: Str15;
var theResult: Str31
);