ListBox verschiedenfarbig drucken

[War10ck]

Hallo zusammen, bin neu hier und hoffe, dass ich meine Frage in das korrekte Unterforum gepostet hab, wenn nicht bitte verschieben.

Ich habe meine Frage bereits in meinem Stammforum gestellt, hoffe jedoch dass mir hier unter Profis vielleicht besser geholfen werden kann.
Ich habe eine ListBox mti verschiedenen Einträgen in verschiedenen Farben. Die Einzelnen Einträge werden über eine for-Schleife an den Druckbefehl übergeben. Wie kann ich nun erreichen, dass auch in verschiedenen Farben gedruckt wird? Quasi jedesmal wenn ich eine Item aus der Liste auslese gleich die Farbe mit auslesen und an den Drucker übergeben? Oder einstellen, dass gleich genau die Farben gedruckt werden, die auch in der Listbox vorhanden sind?

Code:

Printer.Canvas.Font := ListBox1.Font;
for Line := 0 to ListBox1.items.Count - 1 do
Writeln(PrintText, Listbox1.items[Line]);

Hoffe jemand kann helfen.

Gruß War10ck