diff --git a/source/mysql_connection.pas b/source/mysql_connection.pas
index 50d0d524..2043c079 100644
--- a/source/mysql_connection.pas
+++ b/source/mysql_connection.pas
@@ -2453,7 +2453,10 @@ end;
 
 function TDBObject.IsSameAs(CompareTo: TDBObject): Boolean;
 begin
-  Result := (Name = CompareTo.Name) and (NodeType = CompareTo.NodeType) and (Database = CompareTo.Database);
+  if not Assigned(CompareTo) then
+    Result := False
+  else
+    Result := (Name = CompareTo.Name) and (NodeType = CompareTo.NodeType) and (Database = CompareTo.Database);
 end;