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