diff --git a/fcl/netware/pipes.inc b/fcl/netware/pipes.inc
index eec5811078..2698b7c0e0 100644
--- a/fcl/netware/pipes.inc
+++ b/fcl/netware/pipes.inc
@@ -14,7 +14,7 @@
  **********************************************************************}
 
 
-Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
+Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean;
 
 begin
   Result := false;  {dont know how to do that with netware clib}
diff --git a/fcl/netwlibc/pipes.inc b/fcl/netwlibc/pipes.inc
index d477b8a147..d485a1903a 100644
--- a/fcl/netwlibc/pipes.inc
+++ b/fcl/netwlibc/pipes.inc
@@ -14,7 +14,7 @@
  **********************************************************************}
 
 
-Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
+Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean;
 
 begin
   Result := false;  {todo}