Also, ich würde denken, da hat CG einen kleinen Bug eingebaut. Bei Delphi 2010 ist TCustomWinSocket.ReceiveText ein AnsiString. Vielleicht geht ja folgendes:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var D: AnsiString;
begin
SetLength(D, Socket.ReceiveLength);
SetLength(D, Socket.ReceiveBuf(Pointer(D)^, Length(D)));
showmessage(D); // gibt hoffentlich keinen Mist aus
end;