diff --git a/components/lazdebuggergdbmi/gdbmidebugger.pp b/components/lazdebuggergdbmi/gdbmidebugger.pp
index 01c5576499..2ebb1da305 100644
--- a/components/lazdebuggergdbmi/gdbmidebugger.pp
+++ b/components/lazdebuggergdbmi/gdbmidebugger.pp
@@ -298,7 +298,7 @@ type
     property  TargetInfo: PGDBMITargetInfo read GetTargetInfo;
   protected
     procedure SetCommandState(NewState: TGDBMIDebuggerCommandState);
-    procedure DoStateChanged(OldState: TGDBMIDebuggerCommandState); virtual;
+    procedure DoStateChanged({%H-}OldState: TGDBMIDebuggerCommandState); virtual;
     procedure DoLockQueueExecute; virtual;
     procedure DoUnLockQueueExecute; virtual;
     procedure DoLockQueueExecuteForInstr; virtual;
@@ -1198,7 +1198,7 @@ type
     procedure DoGetRegModifiedDestroyed(Sender: TObject);
     procedure DoGetRegModifiedFinished(Sender: TObject);
   protected
-    procedure DoStateChange(const AOldState: TDBGState); override;
+    procedure DoStateChange(const {%H-}AOldState: TDBGState); override;
     procedure Invalidate;
     function GetCount: Integer; override;
     function GetModified(const AnIndex: Integer): Boolean; override;
@@ -7566,6 +7566,7 @@ function TGDBMIDebugger.ExecuteCommand(const ACommand: String;
 var
   R: TGDBMIExecResult;
 begin
+  R:=GDBMIExecResultDefault;
   Result := ExecuteCommandFull(ACommand, AValues, AFlags, nil, 0, R);
 end;
 
@@ -9193,6 +9194,7 @@ var
   s: String;
   t: TGDBType;
 begin
+  s:='';
   if TGDBMIDebugger(Debugger).GDBEvaluate(AnExpression, s, t, [defNoTypeInfo])
   then begin
     TGDBMIDebugger(Debugger).DoDbgEvent(ecBreakpoint, etBreakpointEvaluation, s);
diff --git a/components/lazdebuggergdbmi/gdbmidebuginstructions.pp b/components/lazdebuggergdbmi/gdbmidebuginstructions.pp
index 88a2b49c0f..4afe69adf2 100644
--- a/components/lazdebuggergdbmi/gdbmidebuginstructions.pp
+++ b/components/lazdebuggergdbmi/gdbmidebuginstructions.pp
@@ -88,7 +88,7 @@ type
     function IsCompleted: boolean; virtual;                                        // No more InputFromGdb required
 
     procedure MarkAsSuccess;
-    procedure HandleWriteError(ASender: TGDBInstruction); virtual;
+    procedure HandleWriteError({%H-}ASender: TGDBInstruction); virtual;
     procedure HandleReadError; virtual;
     procedure HandleTimeOut; virtual;
     procedure HandleRecoveredTimeOut; virtual;
diff --git a/components/lazdebuggergdbmi/gdbmimiscclasses.pp b/components/lazdebuggergdbmi/gdbmimiscclasses.pp
index 1973cd61de..d974c3e822 100644
--- a/components/lazdebuggergdbmi/gdbmimiscclasses.pp
+++ b/components/lazdebuggergdbmi/gdbmimiscclasses.pp
@@ -52,7 +52,10 @@ type
     Values: String;
     Flags: TGDBMIResultFlags
   end;
+const
+  GDBMIExecResultDefault: TGDBMIExecResult = (State: dsNone; Values: ''; Flags: []);
 
+type
   PGDBMINameValue = ^TGDBMINameValue;
   TGDBMINameValue = record
     Name: TPCharWithLen;
diff --git a/components/lazdebuggergdbmi/sshgdbmidebugger.pas b/components/lazdebuggergdbmi/sshgdbmidebugger.pas
index 49af226d85..6bb36265a1 100644
--- a/components/lazdebuggergdbmi/sshgdbmidebugger.pas
+++ b/components/lazdebuggergdbmi/sshgdbmidebugger.pas
@@ -99,11 +99,11 @@ type
   public
     function GetAttributes: TPropertyAttributes; override;
     function GetValue: ansistring; override;
-    procedure SetValue(const NewValue: ansistring); override;
-    procedure PropMeasureHeight(const NewValue: ansistring;  ACanvas:TCanvas;
+    procedure SetValue(const {%H-}NewValue: ansistring); override;
+    procedure PropMeasureHeight(const {%H-}NewValue: ansistring;  {%H-}ACanvas:TCanvas;
                                 var AHeight:Integer); override;
     procedure PropDrawValue(ACanvas: TCanvas; const ARect: TRect;
-                  AState: TPropEditDrawState); override;
+                  {%H-}AState: TPropEditDrawState); override;
   end;
 
 { TSSHGDBMIDebuggerProperties }
@@ -150,7 +150,7 @@ procedure TSSHGDBMINotePropertyEditor.PropDrawValue(ACanvas: TCanvas;
 var
   Style : TTextStyle;
 begin
-  FillChar(Style,SizeOf(Style),0);
+  FillChar(Style{%H-},SizeOf(Style),0);
   With Style do begin
     Alignment := taLeftJustify;
     Layout := tlTop;
@@ -195,7 +195,7 @@ end;
 
 function TSSHGDBMIDebugger.ParseInitialization: Boolean;
 
-  function CheckReadLine(var ALine: String): Boolean;
+  function CheckReadLine(out ALine: String): Boolean;
   // does a checked read
   // returns True if we should process it
   // returns False if it is the gdb prompt