From f0d075ab77ea2d69eabab01d91a561a61767d100 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 19 Aug 2004 07:13:07 +0000
Subject: [PATCH] fixed checking in TLRSObjectReader.Destroy if FStream is
 assigned

git-svn-id: trunk@5822 -
---
 lcl/lresources.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/lresources.pp b/lcl/lresources.pp
index e96f9421ac..99bf5f5b78 100644
--- a/lcl/lresources.pp
+++ b/lcl/lresources.pp
@@ -2212,7 +2212,8 @@ end;
 destructor TLRSObjectReader.Destroy;
 begin
   { Seek back the amount of bytes that we didn't process until now: }
-  FStream.Seek(Integer(FBufPos) - Integer(FBufEnd), soFromCurrent);
+  if Assigned(FStream) then
+    FStream.Seek(Integer(FBufPos) - Integer(FBufEnd), soFromCurrent);
 
   if Assigned(FBuffer) then
     FreeMem(FBuffer, FBufSize);