Unicode drucken

[BlueStarHH]

Hallo,

seit kurzem nutze ich Delphi 2009. Mit dem Code folgender Art drucke ich aus meinem Program. An der Stelle wo 'UnicodeText' steht, steht ein Unicode-String, der jedoch mit lauter Fragezeichen gedruckt wird. Wie kann man das lösen? Danke!

Delphi-Quellcode:

uses
  Printers;

procedure PrintTest;
var
  pt: System.Text;

begin
  AssignPrn(pt);
  Rewrite(pt);

  Printer.Canvas.Font.Name := 'Arial';
  Printer.Canvas.Font.Size := 12;

  WriteLn(pt, 'UnicodeText');
     
  System.Close(pt);
end;