diff --git a/windows/src/global/delphi/comp/OnScreenKeyboard.pas b/windows/src/global/delphi/comp/OnScreenKeyboard.pas
index 329ea0d6af..754ff2983a 100644
--- a/windows/src/global/delphi/comp/OnScreenKeyboard.pas
+++ b/windows/src/global/delphi/comp/OnScreenKeyboard.pas
@@ -391,7 +391,6 @@ var
   minsz: Integer;
   i: Integer;
   n: Integer;
-  Canvas: TCanvas;
   b: TBitmap;
 begin
   b := TBitmap.Create;