1:
2:
3:
4:
5:
6:

  SetLength(BinMessage,4);                         //Länge auf 4Bytes <=> Integer
  PInteger(@BinMessage[1])^ := Length(edInput.Text);//Länge (int32) von erster Stelle an reinschreiben

  BinMessage := BinMessage + edInput.Text; //jetzt den Text hinten anhängen {hier ist Text z.B. #4#0#0#0'Test'

  ClientSocket.Socket.SendText(edInput.Text);                    

1:
2:
3:

  BinMessage := Socket.ReceiveText;
  memLog.Lines.Add(BinMessage) ; {kommt "Test" heraus}
  memLog.Lines.Add(Dump(BinMessage));{kommt 54 65 73 74 heraus}                    

1:
2:
3:
4:
5:
6:

  SetLength(BinMessage,4);                         //Länge auf 4Bytes <=> Integer
  PInteger(@BinMessage[1])^ := Length(edInput.Text);//Länge (int32) von erster Stelle an reinschreiben

  BinMessage := BinMessage + edInput.Text; // kann sein, dass um edInput.Text noch ein AnsiString() muss? Habe kein D2k9...

  ClientSocket.Socket.SendText(BinMessage);                    

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

  var
    BinMessage: AnsiString;
    Len: Integer;
begin
  Len := Socket.ReceiveLength;
  SetLength(BinMessage,Len);
  if (Len > 0) then begin
    Len := Socket.ReceiveBuf(PAnsiChar(BinMessage)^,Len);
    SetLength(BinMessage,Len);
  end;
  memLog.Lines.Add(Dump(BinMessage));