diff --git a/applications/sudoku/sudokumain.lfm b/applications/sudoku/sudokumain.lfm
index b0a36bc6f..f2dcf6155 100644
--- a/applications/sudoku/sudokumain.lfm
+++ b/applications/sudoku/sudokumain.lfm
@@ -28,7 +28,6 @@ object Form1: TForm1
     TabOrder = 2
     OnPrepareCanvas = SGridPrepareCanvas
     OnSelectEditor = SGridSelectEditor
-    OnSetEditText = SGridSetEditText
   end
   object ButtonFill: TButton
     Left = 16
diff --git a/applications/sudoku/sudokumain.pas b/applications/sudoku/sudokumain.pas
index b30a22923..d494a9e99 100644
--- a/applications/sudoku/sudokumain.pas
+++ b/applications/sudoku/sudokumain.pas
@@ -49,8 +49,6 @@ type
       {%H-}aState: TGridDrawState);
     procedure SGridSelectEditor(Sender: TObject; {%H-}aCol, {%H-}aRow: Integer;
       var Editor: TWinControl);
-    procedure SGridSetEditText(Sender: TObject; ACol, ARow: Integer;
-      const Value: string);
   private
     { private declarations }
     theValues: TValues;
@@ -145,15 +143,6 @@ begin
   end;
 end;
 
-procedure TForm1.SGridSetEditText(Sender: TObject; ACol, ARow: Integer;
-  const Value: string);
-begin
-  if (Length(Value) >= 1) and (Value[1] in ['1'..'9']) then begin
-    theValues[ACol + 1, ARow + 1] := StrToInt(Value[1]);
-  end else begin
-    theValues[ACol + 1, ARow + 1] := 0;
-  end;
-end;
 
 function TForm1.SolveSudoku: Boolean;
 var