Listbox drucken

[thiagojonas]

Hallo Leute,
ich möchte gerne den inhalt einer listbox ausdrucken.

Habe folgenden code gefunden und verwendet.
Das problem ist, dass komische chinesische zeichen ausgedruckt werden, anstatt der wirklichen items.
Woran liegt das?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var    Line: Integer;
       PrintText: TextFile;
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font.Name := 'Arial';
for Line := 0 to ListBox1.items.Count - 1 do
Writeln(PrintText, Listbox1.items[Line]);
CloseFile(PrintText);
end;

Und hier das resultat.