* fixed compile-time range error under Windows (mantis #16171)

git-svn-id: trunk@15099 -

packages/fcl-web/src/custfcgi.pp

@@ -329,7 +329,7 @@ begin
   Inherited Create(AOwner);
   FRequestsAvail:=5;
   SetLength(FRequestsArray,FRequestsAvail);
-  FHandle := -1;
+  FHandle := THandle(-1);
 end;
 
 destructor TCustomFCgiApplication.Destroy;
@@ -348,7 +348,7 @@ begin
       begin
       fpshutdown(FHandle,SHUT_RDWR);
       CloseSocket(FHandle);
-      FHandle := -1;
+      FHandle := THandle(-1);
       end;
     Request := Nil;
     Response := Nil;