Use ClientSocket & ServerSocket

Beispiel ClientSocket:

uses ExtCtrls, ComCtrls, ScktComp

//

procedure TForm1.Button1Click(Sender: TObject);
begin
  Clientsocket1.Active := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Clientsocket1.Active := False;
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  errorcode := 0;
  StatusBar1.SimpleText := 'Error';
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.SimpleText := 'Disconnect';
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.SimpleText := Clientsocket1.Address;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  kaz : string;
  orders : string;
  Text : string;
  box : string;
begin
  kaz := Edit1.Text;
  ClientSocket1.Socket.SendText(kaz);

  if CheckBox1.Checked = True then
  begin
    orders := 'power';
    ClientSocket1.Socket.SendText(orders);
  end;

  if Checkbox2.Checked = True then
  begin
    Text := 'reset';
    ClientSocket1.Socket.SendText(Text);
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ClientSocket1.Active := False;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ClientSocket1.Active := False;
end;

Beispiel Server Socket:

uses ScktComp, ShellApi, ComCtrls, ExtCtrls

//

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ServerSocket1.Active := False;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ServerSocket1.Active := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket1.Active := True;
end;

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  errorcode := 0;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  kaz : string;
  orders : string;
  Text : string;
  box : string;
begin
  kaz := socket.ReceiveText;
  label1.Caption := 'reciving';
  ShellExecute(Handle, 'open', PChar(kaz), PChar(''), nil, sw_show);
  Text := socket.ReceiveText;
  orders := socket.ReceiveText;
  
  if orders = 'power' then
  begin
    ShellExecute(Handle, 'open', PChar('shutdown.exe'), PChar('-s'), nil, sw_show);
    Application.MessageBox('You will be turned off', 'Warning', mb_iconexclamation);
    ServerSocket1.Active := False;
    Form1.Close;
  end;
  
  if Text = 'reset' then
  begin
    ShellExecute(Handle, 'open', PChar('shutdown.exe'), PChar('-r'), nil, sw_show);
    Application.MessageBox('You will be reset', 'Warning', mb_iconexclamation);
    ServerSocket1.Active := False;
    Form1.Close;
  end;
end;