From a6f129c936161c2863150c06f57b0ce75ad02603 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 22 Oct 2019 15:04:10 +0000
Subject: [PATCH] IDE: less hints

git-svn-id: trunk@62107 -
---
 ide/desktopmanager.pas               | 2 +-
 ide/frames/project_debug_options.pas | 1 -
 ide/mainbase.pas                     | 1 +
 3 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/desktopmanager.pas b/ide/desktopmanager.pas
index 00361cf4ac..ff89fb00cd 100644
--- a/ide/desktopmanager.pas
+++ b/ide/desktopmanager.pas
@@ -59,7 +59,7 @@ type
     procedure ExportAllActionClick(Sender: TObject);
     procedure ExportActionClick(Sender: TObject);
     procedure ExportBitBtnClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure HelpButtonClick(Sender: TObject);
diff --git a/ide/frames/project_debug_options.pas b/ide/frames/project_debug_options.pas
index 8c6422213c..1c83bdfbbc 100644
--- a/ide/frames/project_debug_options.pas
+++ b/ide/frames/project_debug_options.pas
@@ -82,7 +82,6 @@ end;
 
 procedure TProjectDebugOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
 var
-  AFlags: TProjectFlags;
   i: Integer;
 begin
   if not (AOptions is TProjectIDEOptions) then exit;
diff --git a/ide/mainbase.pas b/ide/mainbase.pas
index 59f28fae0f..6cc3c4746e 100644
--- a/ide/mainbase.pas
+++ b/ide/mainbase.pas
@@ -939,6 +939,7 @@ var
 function TMainIDEBase.CreateMenuSeparator(Section: TIDEMenuSection): TIDEMenuCommand;
 begin
   Inc(SeparatorNum);
+  Result:=nil;
   CreateMenuItem(Section, Result, 'Separator'+IntToStr(SeparatorNum), '-');  // Result - var parameter
 end;