Source position: GPCStrings.pas line 313
procedure Str32IntoStr27(
const s: Str32;
var theResult: Str27
);