{...}
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);