* sockets unit fixed

git-svn-id: trunk@760 -

rtl/win32/sockets.pp

@@ -19,7 +19,7 @@ Interface
 {$define maybelibc:=}
 
   Uses
-     windows,winsock;
+     windows,winsock,ctypes;
 
 Type
   cushort=word;