{
  Error routine used by Pascal Winsock apps.
  Public Domain 1994 by
  Mike Caughran Cedar Island Software  
  71034.2371@compuserve.com

  Übersetzt von Joachim Deckers.
}

procedure Error(s : String);
begin
  Writeln;
  Write(S,' Fehler : ');
  Case WSAGetLastError of
     WSAEINTR           : writeln('WSAEINTR');
     WSAEBADF           : writeln('WSAEINTR');
     WSAEFAULT          : writeln('WSAEFAULT');
     WSAEINVAL          : writeln('WSAEINVAL');
     WSAEMFILE          : writeln('WSAEMFILE');
     WSAEWOULDBLOCK     : writeln('WSAEWOULDBLOCK');
     WSAEINPROGRESS     : writeln('WSAEINPROGRESS');
     WSAEALREADY        : writeln('WSAEALREADY');
     WSAENOTSOCK        : writeln('WSAENOTSOCK');
     WSAEDESTADDRREQ    : writeln('WSAEDESTADDRREQ');
     WSAEMSGSIZE        : writeln('WSAEMSGSIZE');
     WSAEPROTOTYPE      : writeln('WSAEPROTOTYPE');
     WSAENOPROTOOPT     : writeln('WSAENOPROTOOPT');
     WSAEPROTONOSUPPORT : writeln('WSAEPROTONOSUPPORT');
     WSAESOCKTNOSUPPORT : writeln('WSAESOCKTNOSUPPORT');
     WSAEOPNOTSUPP      : writeln('WSAEOPNOTSUPP');
     WSAEPFNOSUPPORT    : writeln('WSAEPFNOSUPPORT');
     WSAEAFNOSUPPORT    : writeln('WSAEAFNOSUPPORT');
     WSAEADDRINUSE      : writeln('WSAEADDRINUSE');
     WSAEADDRNOTAVAIL   : writeln('WSAEADDRNOTAVAIL');
     WSAENETDOWN        : writeln('WSAENETDOWN');
     WSAENETUNREACH     : writeln('WSAENETUNREACH');
     WSAENETRESET       : writeln('WSAENETRESET');
     WSAECONNABORTED    : writeln('WSAECONNABORTED');
     WSAECONNRESET      : writeln('WSAECONNRESET');
     WSAENOBUFS         : writeln('WSAENOBUFS');
     WSAEISCONN         : writeln('WSAEISCONN');
     WSAENOTCONN        : writeln('WSAENOTCONN');
     WSAESHUTDOWN       : writeln('WSAESHUTDOWN');
     WSAETOOMANYREFS    : writeln('WSAETOOMANYREFS');
     WSAETIMEDOUT       : writeln('WSAETIMEDOUT');
     WSAECONNREFUSED    : writeln('WSAECONNREFUSED');
     WSAELOOP           : writeln('WSAELOOP');
     WSAENAMETOOLONG    : writeln('WSAENAMETOOLONG');
     WSAEHOSTDOWN       : writeln('WSAEHOSTDOWN');
     WSAEHOSTUNREACH    : writeln('WSAEHOSTUNREACH');
     WSAENOTEMPTY       : writeln('WSAENOTEMPTY');
     WSAEPROCLIM        : writeln('WSAEPROCLIM');
     WSAEUSERS          : writeln('WSAEUSERS');
     WSAEDQUOT          : writeln('WSAEDQUOT');
     WSAESTALE          : writeln('WSAESTALE');
     WSAEREMOTE         : writeln('WSAEREMOTE');
     WSASYSNOTREADY     : writeln('WSASYSNOTREADY');
     WSAVERNOTSUPPORTED : writeln('WSAVERNOTSUPPORTED');
     WSANOTINITIALISED  : writeln('WSANOTINITIALISED');
     WSAHOST_NOT_FOUND  : writeln('WSAHOST_NOT_FOUND');
     HOST_NOT_FOUND     : writeln('HOST_NOT_FOUND');
     WSATRY_AGAIN       : writeln('WSATRY_AGAIN');
     TRY_AGAIN          : writeln('TRY_AGAIN');
     WSANO_RECOVERY     : writeln('WSANO_RECOVERY');
     NO_RECOVERY        : writeln('NO_RECOVERY');
     WSANO_DATA         : writeln('WSANO_DATA');
     NO_DATA            : writeln('NO_DATA');
     WSANO_ADDRESS      : writeln('WSANO_ADDRESS');
     NO_ADDRESS         : writeln('NO_ADDRESS');
     EWOULDBLOCK        : writeln('EWOULDBLOCK');
     EINPROGRESS        : writeln('EINPROGRESS');
     EALREADY           : writeln('EALREADY');
     ENOTSOCK           : writeln('ENOTSOCK');
     EDESTADDRREQ       : writeln('EDESTADDRREQ');
     EMSGSIZE           : writeln('EMSGSIZE');
     EPROTOTYPE         : writeln('EPROTOTYPE');
     ENOPROTOOPT        : writeln('ENOPROTOOPT');
     EPROTONOSUPPORT    : writeln('EPROTONOSUPPORT');
     ESOCKTNOSUPPORT    : writeln('ESOCKTNOSUPPORT');
     EOPNOTSUPP         : writeln('EOPNOTSUPP');
     EPFNOSUPPORT       : writeln('EPFNOSUPPORT');
     EAFNOSUPPORT       : writeln('EAFNOSUPPORT');
     EADDRINUSE         : writeln('EADDRINUSE');
     EADDRNOTAVAIL      : writeln('EADDRNOTAVAIL');
     ENETDOWN           : writeln('ENETDOWN');
     ENETUNREACH        : writeln('ENETUNREACH');
     ENETRESET          : writeln('ENETRESET');
     ECONNABORTED       : writeln('ECONNABORTED');
     ECONNRESET         : writeln('ECONNRESET');
     ENOBUFS            : writeln('ENOBUFS');
     EISCONN            : writeln('EISCONN');
     ENOTCONN           : writeln('ENOTCONN');
     ESHUTDOWN          : writeln('ESHUTDOWN');
     ETOOMANYREFS       : writeln('ETOOMANYREFS');
     ETIMEDOUT          : writeln('ETIMEDOUT');
     ECONNREFUSED       : writeln('ECONNREFUSED');
     ELOOP              : writeln('ELOOP');
     ENAMETOOLONG       : writeln('ENAMETOOLONG');
     EHOSTDOWN          : writeln('EHOSTDOWN');
     EHOSTUNREACH       : writeln('EHOSTUNREACH');
     ENOTEMPTY          : writeln('ENOTEMPTY');
     EPROCLIM           : writeln('EPROCLIM');
     EUSERS             : writeln('EUSERS');
     EDQUOT             : writeln('EDQUOT');
     ESTALE             : writeln('ESTALE');
     EREMOTE            : writeln('EREMOTE');
  end;
end;

procedure Abort(S : String);
begin
  Error(S);
  Writeln('Das Programm wird beendet.');
  CleanUp;
  Halt(255);
end;