Чат через winsock

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <winsock2.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{       //Этап №1 Подключение библиотеки
        WSADATA MyWSAData;
        int ErrWSADATA;
        if (WSAStartup(MAKEWORD(2,0), &MyWSAData)!=0)
        {
                Memo1->Lines->Add("Ошибка в библиотеки");
        }
        else
        {
                Memo1->Lines->Add("Библиотека Работает");
                SOCKET S;//Для соединения
                SOCKET Per;//Для передачи данных
                //Этап №2 Создание сокета
                S=socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
                if (S==INVALID_SOCKET) Memo1->Lines->Add("Ошибка в Сокете");
                else
                {
                        Memo1->Lines->Add("Сокет Создан");
                        struct sockaddr_in SSA;
                        //Этап №3 Привязка адреса к сокету (Создание сервера)
                        SSA.sin_family=AF_INET;
                        SSA.sin_port=htons(1024);
                        SSA.sin_addr.s_addr=INADDR_ANY;
                        int ErrBind;
                        ErrBind=bind(S,(struct sockaddr*)&SSA,sizeof(SSA));
                        if (ErrBind!=0) Memo1->Lines->Add("Ошибка в привязке адреса");
                        else
                        {
                                Memo1->Lines->Add("Привязке адреса успешна");
                                //Этап №4 Обработка запроса
                                //Принятие данных
                                listen(S, 1);
                                Memo1->Lines->Add("Ожидание запроса на соединение");
                                Per=accept(S,NULL,NULL);
                                char Buf[255];
                                SOCKET ERR;
                                ERR=recv(Per, Buf, sizeof(Buf),0);
                                if (ERR==SOCKET_ERROR) Memo1->Lines->Add("Немогу принять сообщение");
                                else
                                {
                                        //Отправка данных
                                        char buf[255];
                                        SOCKET ERS;
                                        ERS=send(Per,buf,sizeof(buf),0);
                                        if (ERS=SOCKET_ERROR) Memo1->Lines->Add("Немогу отправить сообщение");
 
                                }
 
                        }
 
 
                }
        }
}
//---------------------------------------------------------------------------