WinSock Проблеммы с получением

[AngelOfDeath]

В общем пытаюсь написать программку на WinSock
Вот код сервера:
Основное:

procedure TForm4.Button1Click(Sender: TObject);
begin
a.sin_family:=AF_INET;
a.sin_port:=5555;
a.sin_addr.S_addr:=inet_addr(PChar('127.0.0.1'));
InitSocket;
end;

procedure TForm4.InitSocket;

begin
w.wVersion:=MakeWord(1,0);
WSAStartup(MakeWord(1,0),w);
Server:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
if server=INVALID_SOCKET then
Memo1.Lines.Add('Ошибка инициализации сокета')
else
Memo1.Lines.Add('Сокет инициализирован');
if bind(server, a,sizeof(a))<>0 then
Memo1.Lines.Add('Ошибка привязки')
else
Memo1.Lines.Add('Привязано');
ServerTHRead:=Accepting.Create(true);
ServerTHRead.Priority:=tpLower;
ServerTHRead.Resume;

ServerTHRead2:=RecvTH.Create(true);
ServerTHRead2.Priority:=tpLower;
ServerTHRead2.Resume;
end;

1ый поток:

procedure Accepting.Execute;
begin
while True do
begin
Form4.Memo1.Lines.Add('Началось прослеушивание порта');
listen(Form4.Server,1);
Form4.Memo1.Lines.Add('Ожидание коннекта');
accept(Form4.Server, Form4.ADDR ,nil);
Form4.Memo1.Lines.Add('Коннект!');;
end;
end;

2ой поток:

procedure RecvTH.Execute;
var
int:Integer;
str:array [0..255] of char;
begin
while True do
begin
  int:= recv(Form4.Server,str,SizeOf(str),0);
  if int<>-1 then
  begin
    Form4.Memo1.Lines.Add(str[1]);
  end;
end;
end;

Вот клиент:

procedure TForm3.Button1Click(Sender: TObject);
var
str:string;
begin
WSdata.wVersion:=MakeWord(1,0);
WSAStartup(MakeWord(1,0),WSdata);
str:='ыыы';
client:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
if client=INVALID_SOCKET then
Memo1.Lines.Add('Ошибка инициализации сокета')
else
Memo1.Lines.Add('Сокет инициализирован');
if connect(client, addr, SizeOf(addr))<>0 then
Memo1.Lines.Add('Ошибка соеденения')
else
Memo1.Lines.Add('Соеденено');





end;

Код отправки:

procedure TForm3.Button4Click(Sender: TObject);
var
dsada:array [0..255] of char;
begin

dsada[1]:='1';
send(client,dsada,1,0);
end;

Данные в мемо не выводяться(я незнаю вообще сервер их получает или нет)
В чём проблемма?
И вообще правильно я делаю?

[Somebody]

После вызова listen сокет используется, чтобы принимать новых клиентов. Для каждого клиента accept возвращает дескриптор другого сокета, который и нужно использовать для дальнейшей работы с этим клиентом.

[AngelOfDeath]

Спасибо, помогло
Изменил
Вот так всё работает
Код отправки:

procedure TForm3.Button4Click(Sender: TObject);
var
chars:array [0..255] of char;
i:Integer;
str:string;
begin
FillChar(chars,sizeof(chars),0);
str:=Edit1.Text;
for I := 1 to Length(Edit1.Text)  do

    chars[i-1]:=Edit1.Text[i];

send(client,chars,255,MSG_OOB);
end;

Код получения:

procedure RecvTH.Execute;

begin
while True do
begin

MSG;

end;
end;

procedure RecvTH.MSG;
var
int:Integer;
str:array [0..255] of char;
strok:string;
i:Integer;
begin
listen(Form4.Client,1000000);
  int:= recv(Form4.Client,str,255,0);
  if int<>-1 then
  begin
  Form4.Memo1.Lines.Add('Получен пакет!');
  for I := 0 to 255 do
  begin
  strok:=strok+str[i]
  end;
  Form4.Memo1.Lines.Add(strok);
  end;
end;