TCP Server/Client Verbindung - Checkboxes auswerten

[Maddin82]

Hallo zusammnen, sitze hier gerade vor meinem Client bzw Server Programm! Bisher haben wir immer nur Texte hin und her geschickt, so eine Art klines Chat-Programm. Nu haben wir die Aufgabenstellungen Checkboxen gegenseitig von Client bzw Server auszuwerten und diese jeweils in den Programmen anzuzeigen. Wie mnache ich diese???
Ist evt. ne doofe Frage, jedoch komme ich hier nicht auf nen grünen Zweig. Über eure Hilfe wär ich sehr Dankbar. Vielen Dannk schon mal

Dies wäre das Server-Programm

Delphi-Quellcode:

 procedure TTCPServer.bt_listenClick(Sender: TObject);
begin
IF edlocalport.text<>'' then
begin
serversocket1.port:=strtoint(edlocalport.text);
serversocket1.Open;
mb_receivedata.clear;
end
else showmessage ('Kein lokaler Port');
end;

procedure TTCPServer.onlisten(Sender: TObject; Socket: TCustomWinSocket);
begin
statusbar1.simpletext:='hören';
bt_send.enabled:=false;
bt_listen.enabled:=false;
end;

procedure TTCPServer.onaccept(Sender: TObject; Socket: TCustomWinSocket);
begin
statusbar1.simpletext:='Verbunden mit' +socket.remoteaddress;
bt_send.enabled:=true;
bt_trennen.enabled:=true;
end;

procedure TTCPServer.onclientdisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
statusbar1.simpletext:='Hören';
serversocket1.open;
bt_send.enabled:=false;
end;

procedure TTCPServer.onclienterror(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);

  begin
showmessage('Verbindungsfehler!');
errorcode:=0;
serversocket1.Close;
bt_send.enabled:=true;
bt_trennen.enabled:=false;
bt_listen.Enabled:=true;
statusbar1.SimpleText:='Keine Verbindung!';
end;

procedure TTCPServer.bt_sendClick(Sender: TObject);
begin
serversocket1.socket.Connections[0].SendText(ed_senddata.text);
ed_senddata.text:='';
end;

procedure TTCPServer.onclientread(Sender: TObject; Socket: TCustomWinSocket);
begin
mb_receivedata.text:=mb_receivedata.text+socket.receivetext;
end;

procedure TTCPServer.bt_trennenClick(Sender: TObject);
begin
serversocket1.close;
bt_listen.enabled:=true;
bt_send.enabled:=false;
bt_trennen.enabled:=false;
statusbar1.SimpleText:='Keine Verbindung!';
end;

end.