From c861384366e933d97ff84177194a380b2075f2df Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 10 May 2014 14:45:03 +0000
Subject: [PATCH] * Fixed bug #26117, as proposed by reporter

git-svn-id: trunk@27747 -
---
 packages/fcl-db/src/export/fpdbexport.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/export/fpdbexport.pp b/packages/fcl-db/src/export/fpdbexport.pp
index 1f6b49f9df..1e282a815f 100644
--- a/packages/fcl-db/src/export/fpdbexport.pp
+++ b/packages/fcl-db/src/export/fpdbexport.pp
@@ -456,7 +456,8 @@ begin
     If (FDataset<>Nil) then
       FDataset.RemoveFreeNotification(Self);
     FDataset:=AValue;
-    FDataset.FreeNotification(Self);
+    if (FDataset<>Nil) then
+      FDataset.FreeNotification(Self);
     UnbindFields;
     end;
 end;