socket函数为什么总是返回-1？

所有的工作都无法继续了，只因为socket函数每次都返回-1.
谁知道什么原因？
Delphi 6 下：socket(AF_INET,SOCK_RAW,0);