Source position: GPCStrings.pas line 288
procedure Str15IntoStr15(
const s: Str15;
var theResult: Str15
);