From 2b8a75b61cd996b65254174b4f1980aa8de6fdb8 Mon Sep 17 00:00:00 2001
From: rosenfield <rosenfield@40cadd2d-89a2-4482-8f20-0232d845d7e3>
Date: Tue, 21 Aug 2007 19:35:14 +0000
Subject: [PATCH] Avoid a follow-up AV when seeing unknown data types.

---
 source/childwin.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index e64460ac..a1c669d3 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -4942,7 +4942,7 @@ begin
     background := clInfoBK;
     afont.Color := clInfoText;
   end;
-  if field.IsNull then background := mainform.DataNullBackground;
+  if (field <> nil) and field.IsNull then background := mainform.DataNullBackground;
 end;
 
 procedure TMDIChild.DBMemo1Exit(Sender: TObject);