1:

PInteger(@Buffer[1])^ :=                    

1:

Buffer[1] :=                    

1:
2:

SetLenght(BinMessage, 4); 
PInteger(@BinMessage[1])^ := Lenght(Edit1.Text);                    

1:

BinMessage := Lenght(Edit1.Text);                    

1:
2:

BinMessage := Length(Edit1.Text);             // Geht nicht, weil BinMessage ein String
BinMessage := IntToStr(Length(Edit1.Text));   // Geht zwar, aber nicht im Binärformat                    

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

procedure TNBFPAServer.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
   begin
     LogIt('! SID:'+IntToStr(ServerPA.ConnectionsBySocket[Socket].SessionID)+
           ' Fehler [WSA:'+IntToStr(ErrorCode)+'] aufgetreten! '+Socket.RemoteAddress);
   if (Socket.Connected) then // noch verbunden?
      Socket.Close // dann Verbindung trennen
   else // sonst...
      DeleteClient(Socket); // nur noch wegräumen
   ErrorCode := 0; // Fehler behandelt, keine Exception erzeugen
end;                    

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

// einen AnsiString hinzufügen -------------------------------------------------
Procedure TCmdSeq.Add(Const Value: AnsiString);
Begin
  Add(PAnsiChar(Value)^, Length(Value));        // auf Buffer-Methode umbiegen
End;

// einen String hinzufügen -----------------------------------------------------
Procedure TCmdSeq.Add(Const Value: String);
Begin
  Add(PChar(Value)^,                    // auf Buffer-Methode umbiegen
    Length(Value) * SizeOf(Char));          // wegen 2-Byte-Character
End;