* Fix issue #40454

rtl/objpas/classes/streams.inc

@@ -1354,6 +1354,7 @@ end;
 constructor TFileStream.Create(const AFileName: string; Mode: Word);
 
 begin
+  // 438 = 666 octal which is rw rw rw 
   Create(AFileName,Mode,438);
 end;