diff --git a/ide/frames/window_options.pas b/ide/frames/window_options.pas
index f309a31ce9..28516edc07 100644
--- a/ide/frames/window_options.pas
+++ b/ide/frames/window_options.pas
@@ -295,8 +295,6 @@ begin
 end;
 
 procedure TWindowOptionsFrame.ApplyButtonClick(Sender: TObject);
-var
-  NewBounds: TRect;
 begin
   SaveLayout;
   if (Layout<>nil) and (Layout.Form<>nil) and (Layout.Form.Parent=nil) then begin