Die erste Lösung war noch nicht ganz funktional.
Mit diesen Änderungen läuft es aber :
..
BuffB : TBytes;
DestEncoding : sysutils.TEncoding;
AText : string; //<<<<<<<<<<<<<<<<<<<
..
K := PDFFont.FileLength;
DestEncoding := TEncoding.ANSI;
AText := DestEncoding.GetString(BuffB,0,K);
WriteStrNoCRLF(AText);
Änderungen :
ANSI-Encoding statt
ASCII
AText statt Text, weil text nicht als String genutzt wird
(Warum auch immer es zunächst lief..)