Textdatei mit vorangestellten Steuercodes

[hathor]

Dann würde ich statt PWideChar PANSIChar bzw. statt String ANSIString versuchen.

Ausserdem:
procedure AppendStringToFile(const s:string; const filename:string; const prnfile:string);
Besser:
procedure AppendStringToFile(const s:ANSIstring; const filename:WIDEstring; const prnfile:WIDEstring);