Uses
  WinSock;

.......................................
var
  WSAData: TWSAData;

procedure WSStartup;
var
  ErrorCode: Integer;
begin
  ErrorCode := WSAStartup($0101, WSAData);
  if ErrorCode <> 0 then
    raise Exception.Create('WSAStartup');
end;

procedure WSCleanup;
var
  ErrorCode: Integer;
begin
  ErrorCode := WSACleanup;
  if ErrorCode <> 0 then
    raise Exception.Create('WSACleanup');
end;

initialization

  WSStartup;

finalization
  WSCleanup;

end.