diff --git a/source/main.pas b/source/main.pas
index 4808f1dd..93487554 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -8103,6 +8103,7 @@ begin
       avg_persec := '';
 
       // Detect value type
+      valIsNumber := False;
       try
         valIsNumber := IntToStr(MakeInt(val)) = val;
       except on E:EInvalidOp do
diff --git a/source/selectdbobject.pas b/source/selectdbobject.pas
index c9036ad5..506e477a 100644
--- a/source/selectdbobject.pas
+++ b/source/selectdbobject.pas
@@ -125,7 +125,6 @@ end;
 procedure TfrmSelectDBObject.TreeDBOFocusChanged(Sender: TBaseVirtualTree;
     Node: PVirtualNode; Column: TColumnIndex);
 var
-  DBObj: PDBObject;
   Tree: TVirtualStringTree;
 begin
   // Overtake node text into lower edit boxes