diff --git a/SRC/xBase.pas b/SRC/xBase.pas
index 5bf9060..e9bef89 100755
--- a/SRC/xBase.pas
+++ b/SRC/xBase.pas
@@ -3330,11 +3330,9 @@ destructor TFileFlusherThread.Destroy;
 
 
 procedure TFileFlusherThread.Flush(ATime: DWORD);
-var
-  b: BOOL;
 begin
   EnterCriticalSection(CS^);
-  b := FlushFileBuffers(FileHandle);
+  FlushFileBuffers(FileHandle);
   LastFlushInitiatedTimestamp := ATime;
   LeaveCriticalSection(CS^);
 end;