A quoi sert ce +2 ? Ces deux caractères ne sont pas initialisés :koi:
ZeroMemory au minimum si tu veux deux #0.


procedure DirectPrint(s: AnsiString);
var
PTBlock: TPassThroughData;

begin...