From bad9c2cec32c0fc9e048952b8ea942bc67abc19c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 8 Sep 2010 17:12:04 +0000
Subject: [PATCH] Attempt to fix nil pointer exception (issue #2157)

---
 source/mysql_connection.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;