diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index c67dbcad6f..4eca7c189b 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -3815,7 +3815,8 @@ function TPascalParserTool.GetExtraction: string;
 begin
   SetLength(Result,ExtractMemStream.Position);
   ExtractMemStream.Position:=0;
-  ExtractMemStream.Read(Result[1],length(Result));
+  if Result<>'' then
+    ExtractMemStream.Read(Result[1],length(Result));
 end;
 
 function TPascalParserTool.ExtractStreamEndIsIdentChar: boolean;