diff --git a/fcl/db/memds/memds.pp b/fcl/db/memds/memds.pp
index 8a5d1854b1..db181d5f97 100644
--- a/fcl/db/memds/memds.pp
+++ b/fcl/db/memds/memds.pp
@@ -476,7 +476,7 @@ begin
   CheckMarker(F,smData);
   Size:=ReadInteger(F);
   FStream.Clear;
-  FStream.CopyFrom(F,Size);
+  if Size>0 then FStream.CopyFrom(F,Size);
   FRecCount:=Size div FRecSize;
   FCurrRecNo:=-1;
 end;