From 2dbdc649101f587199f99b620a4f562350b65487 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 10 Jun 2015 20:59:04 +0000
Subject: [PATCH] * Fix bug #28222

git-svn-id: trunk@31016 -
---
 packages/fcl-web/src/base/custcgi.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-web/src/base/custcgi.pp b/packages/fcl-web/src/base/custcgi.pp
index 18ddb18981..4ecd86dcb7 100644
--- a/packages/fcl-web/src/base/custcgi.pp
+++ b/packages/fcl-web/src/base/custcgi.pp
@@ -370,8 +370,9 @@ begin
           V:=HTTPDecode(V);
         SetHTTPVariable(M.V,V)
         end;
-      end
+      end;
     end;
+  ReadContent;
 end;
 
 procedure TCGIRequest.ReadContent;