Winsock Client & Server [Проблемы и решения]

[iGlass]

Всем доброго времени суток!
Помогите пожалуйста...
Задача у меня очень проста нужно сделать клиент серверное приложение
из Клиента отправляем любой текст и сервер сохраняет его в файл..
Вот я тут наваял немного, но не знаю правильно или нет...

Код сервера.

var
WSA:WSAData;
hSocket:TSocket;
hAddr:TSockAddrIn;
hPort:Word;
buffer:Integer;
buffer_recv:array[0..10000] of Char;
begin
  WSAStartup($202,WSA);
    hAddr.sin_family:=AF_INET;
    hAddr.sin_port:=htons(hPort);
    hAddr.sin_addr.S_addr:=INADDR_ANY;
     socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
      bind(hSocket,hAddr,buffer);
      recv(hSocket,buffer_recv,buffer,0);
      closesocket(hSocket);
      WSACleanup();
end;

Помогите кто чем может очень буду рад!