Сокеты в Delphi

[Necro]

Проблема решилась!
Всем спасибо, особенно Квенди.
Прошу прощенья за задержку...

[НЕ_АЙС]

procedure TMainForm.Button1Click(Sender: TObject);
var
Init: TWSAData;
SockOpt: BOOL;
Sock: TSocket;
Target: TSockAddrIn;
begin
WSAStartup($101,Init);
Sock:=Socket(PF_INET,SOCK_DGRAM,IPP ROTO_UDP);
SockOpt:=TRUE;
SetSockOpt(Sock,SOL_SOCKET,SO_BROAD CAST, PChar(@SockOpt),SizeOf(SockOpt)) ;
Target.sin_port:=htons(8167); //номер порта
Target.sin_addr.S_addr:=INADDR_BROA DCAST;
Target.sa_family:=AF_INET;
SendTo(Sock,Data,DataBytes,0,Target ,SizeOf(Target));
WSACleanup;
end;

Сей код отправляет широковещательное сообщение всем компам в сети на порт 8167.
Серваку лишь нужно прослушивать этот порт и отправлять ответ типа да
это я сервак.