diff --git a/applications/sudoku/sudokumain.pas b/applications/sudoku/sudokumain.pas
index c5f0b201e..6b0b13c68 100644
--- a/applications/sudoku/sudokumain.pas
+++ b/applications/sudoku/sudokumain.pas
@@ -161,6 +161,7 @@ var
   NeedsColor: Boolean;
   GridTextStyle: TTextStyle;
 begin
+  GridTextStyle := (Sender as TStringGrid).Canvas.TextStyle;
   GridTextStyle.Alignment := taCenter;
   GridTextStyle.Layout := tlCenter;
   (Sender as TStringGrid).Canvas.TextStyle := GridTextStyle;