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