diff --git a/components/scrolltext/scrollingtext.pas b/components/scrolltext/scrollingtext.pas
index 67f73bd38..a905c3832 100644
--- a/components/scrolltext/scrollingtext.pas
+++ b/components/scrolltext/scrollingtext.pas
@@ -239,7 +239,7 @@ begin
     //reset buffer font
     FBuffer.Canvas.Font := fFont;
     FBuffer.Canvas.Font.Style := [];
-    FBuffer.Canvas.Font.Color := clBlack;
+    FBuffer.Canvas.Font.Color := fFont.Color;// clBlack;
 
     //skip empty lines
     if Length(s) > 0 then