Source position: fppdf.pp line 1238
procedure CompressString(
const AFrom: string;
var ATo: string
);