diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 5f8df50f0d..eb6dd3d074 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -768,8 +768,11 @@ Var
         TheStream : TFileStream;
 begin
   TheStream:=TFileStream.Create(FileName,fmOpenRead or fmShareDenyWrite);
-  LoadFromStream(TheStream);
-  TheStream.Free;
+  try
+    LoadFromStream(TheStream);
+  finally
+    TheStream.Free;
+  end;
 end;
 
 
@@ -834,8 +837,11 @@ Var TheStream : TFileStream;
 
 begin
   TheStream:=TFileStream.Create(FileName,fmCreate);
-  SaveToStream(TheStream);
-  TheStream.Free;
+  try
+    SaveToStream(TheStream);
+  finally
+    TheStream.Free;
+  end;
 end;