* Add Flush method to TFileStream. Fix issue #39619

rtl/objpas/classes/classesh.inc

@@ -1187,6 +1187,7 @@ type
     constructor Create(const AFileName: string; Mode: Word);
     constructor Create(const AFileName: string; Mode: Word; Rights: Cardinal);
     destructor Destroy; override;
+    Function Flush : Boolean;
     property FileName : String Read FFilename;
   end;
 

rtl/objpas/classes/streams.inc

@@ -1336,6 +1336,11 @@ begin
   FileClose(FHandle);
 end;
 
+function TFileStream.Flush : Boolean;
+begin
+  Result:=FileFlush(Handle);
+end;
+
 {****************************************************************************}
 {*                             TCustomMemoryStream                          *}
 {****************************************************************************}