Canvas.Brush.Color := clBlack;
ist daran schuld! Setz mal die Brush-Farbe
vor dem Schreiben des Text auf
Canvas.Brush.Color := clWhite;
Edit:
NARF, man sollte sich zuerst das komplett Topic durchlesen bevor man antwortet...
Wie dem auch sei, besser ist es noch, Du setzt auch die Pen-Farbe
vor jedem neuen Zeichnen auf das Canvas auf den gewünschten Wert, da sich das Canvas die zuletzt benutze Farbe merkt.