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

////////////////////////////////////////////////////////////////////////
ClientSocket1.Socket.Sendtext('msg' + '*' + Nachricht + '*' + Datum + '*' + Uhrzeit);

///////////////////////////////////////////////////////////////////////

MSG:=ServerSocket1.Socket.ReceiveText;

if copy(MSG,1,3)=msg then 
 begin
  Nachricht:=copy(MSG,3,bis ende vom Nachricht);
  Datum:=copy(MSG,nach dem Nachrichttext,bis ende vom Datum);
  Uhrzeit:=copy(MSG,nach dem Datum,bis ende vom Uhrzeit);
 end;
//////////////////////////////////////////////////////////////////////