Волшебная мозаика по номерам "Даша на пикнике", формат А4

    'Невозможно создать слушающий сокет: ' + GetErrorString');   // Формирование адреса для "слушающего" сокета   FillChar(MainSockAddr.sin_zero, SizeOf (MainSockAddr.sin_zero, 0);   MainSockAddr.sin_family := AF_INET;   // Выбор IP-адреса доверяем системе   MainSockAddr.sin_addr.S_addr := INADDR_ANY;   // Порт назначаем, не забывая перевести его номер в сетевой формат   MainSockAddr.sin_port := htons(Port);   // Привязка сокета к адресу   if bind(MainSocket, MainSockAddr, SizeOf(MainSockAddr)) = SOCKET_ERROR then    raise ESocketException.Create(     'Невозможно привязать слушающий сокет к адресу: ' +     GetErrorString);   // Установка сокета в режим прослушивания   if listen(MainSocket, SOMAXCONN) = SOCKET_ERROR then    raise ESocketException.Create(     'Невозможно установить сокет в режим прослушивания: ' +     GetErrorString);   WriteLn(OemString('Сервер успешно начал прослушивание порта '), Port);   ...   // Основная часть сервера приведена в листинге 2.15   ...  except   on Е: ESocketException do    WriteLn(OemString(E.Message)); ...»