WSAStartup(MakeWord(2,2),WSA);

hSocket:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
 hAddr.sin_family:=AF_INET;
 hAddr.sin_port:=htons(wPort);
 hAddr.sin_addr.S_addr:=inet_addr(Pchar(ipEdit.Text));
 bind(hSocket,hAddr,Len);
 listen(hSocket,len);
 while buffer = '' do // Вот тут всё виснет... 
 recv(hSocket,buffer,1024,0);
 Application.ProcessMessages;
 DisplayLog.Lines.Add('----------------');
 DisplayLog.Lines.Add(buffer);
 DisplayLog.Lines.Add('----------------');