Source position: GPCStrings.pas line 306
procedure Str32IntoStr15(
const s: Str32;
var theResult: Str15
);