diff --git a/lib/delphi/src/Thrift.Transport.Pipes.pas b/lib/delphi/src/Thrift.Transport.Pipes.pas
index 593bb3a66..47f3b4de4 100644
--- a/lib/delphi/src/Thrift.Transport.Pipes.pas
+++ b/lib/delphi/src/Thrift.Transport.Pipes.pas
@@ -288,7 +288,7 @@ end;
 
 procedure TPipeStreamBase.Flush;
 begin
-  // nothing to do
+  FlushFileBuffers( FPipe);
 end;