Jeg udskriver kinesisk ????

Følgende er en enkel kode til udskrift at en Trichedit.

procedure TForm3.Udskrivresultat1Click(Sender: TObject);
var
Line:Integer;
PrintText:TextFILE;
begin
  if PrintDialog1.Execute then
  begin
    AssignPrn(PrintText);
    ReWrite(PrintText);
    Printer.Canvas.Font := richedit1.Font;
    for Line :=0 to richedit1.Lines.Count - 1 do
    Writeln(PrintText, richedit1.Lines.Strings[Line]);
    System.Closefile(PrintText);
  end;
end;

Jeg får ingen fejl, hvad jeg vel heller ikke burde, men min udskrift er visk kinesisk eller noget.....:

㨱愠戠††〰㨰
㨲愠挠††〰㨰㈰
㨳爠琠††〰㨰㌰

jeg har forsøgt mig med en del af de fonte jeg har mulighed for at bruge, men det giver samme resultat......
Hvad f..... er der galt.