diff --git a/lazarus/snake/unit1.pas b/lazarus/snake/unit1.pas
index f5a405a..94d2958 100644
--- a/lazarus/snake/unit1.pas
+++ b/lazarus/snake/unit1.pas
@@ -163,7 +163,7 @@ begin
   Canvas.Pen.Width := 2*pointR;
   Canvas.Polyline(points);
 
-  Canvas.Pen.Color := clBlue;
+  Canvas.Pen.Color := clRed;
   Canvas.Pen.Width := 2*ballR;
   Canvas.MoveTo(round(ball.x), round(ball.y));
   Canvas.LineTo(round(ball.x), round(ball.y));