Форум АНТИЧАТ - Сервер и клиент [Delphi]

Нужно реализовать клиент-серверное приложение на Delphi с использование Winsock

Функционал очень прост

Вот кусок из клиента:

Код:

{...}

var

SendData:String;



Procedure SendData

 var

hSock:TSocket;

WSA:WSADATA

addr:TSockAddrIn; //Сомнения ведь столько всяких Addr'ов

 begin

 {...}

 send(hSock,@buf,0) 

end;

В буфер записываем какую нибудь строку и функции сенд отправляем буфер серверу, тот в свою очередь принимает строчку и сохраняет её в файл.

Вот кусок из сервера(он консольный)

Код:

program WServer;



{$APPTYPE CONSOLE}



uses

  Winsock,

  Windows,

  SysUtils;

type

  TWinsockServer = class(TObject)

  Private

    hSocket:  TSocket;

    Addr:     TSockAddrIn;

    wsaData:  TWSAData;

  Public

    procedure Connect;

    procedure ReceiveData(Sock: TSocket; Buffer:Char);

Подскажите как правильно сделать продцедуру получения данных?

Заранее всем спасибо!