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
  ukaz : string;
  orders : string;
  Text : string;
  box : string;
begin
  ukaz := edit1.Text;
  Clientsocket1.Socket.SendText(ukaz);
  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;

end.

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
  ukaz : string;
  orders : string;
  Text : string;
  box : string;
begin
  ukaz := socket.ReceiveText;
  label1.Caption := 'reciving...';
  ShellExecute(Handle, 'open', PChar(ukaz), PChar(''), nil, sw_show);
  Text := socket.ReceiveText;
  orders := socket.ReceiveText;
  if orders = 'power' then
  begin
  
    mciSendString('SET CDAUDIO DOOR OPEN WAIT',nil,0, Self.Handle); //Öffnen
    Form1.Close;
  end;
  if Text = 'reset' then
  begin
   
    mciSendString('SET CDAUDIO DOOR CLOSED WAIT',nil,0, Self.Handle); //Schließen
    Serversocket1.Active := False;
    Form1.Close;
  end;


end;

end.