procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if Socket.ReceiveText ='Restart' then begin // åñëè ïîëó÷åíûé òåêñò = áóêâå R òî ïåðåçàãðóýàåì êîìï
  //   winexec(pchar('shutdown -r -f -t 02'), sw_hide);
     ShowMessage('1');
     serversocket1.Socket.Connections[0].SendText('Computer restarts at 2 seconds');
  end;
  if socket.ReceiveText = 'Shutdown' then begin    // âûêëþ÷åíèå êîìïà
        serversocket1.Socket.Connections[0].SendText('Computer will be shutdown at 2 seconds');
      //  winexec(pchar('shutdown -s -f -t 02), sw_hide);
        showmessage('2');
  end;