Capturar mensajes largos por TClientSocket

[delphi.com.ar]

8K es el tamaño por default:

Código Delphi [-]
var
  dwBuffer: DWORD;
  iSize: Integer;
begin
  with TClientSocket.Create(nil) do
    try
      Host := 'microsoft.com';
      Port := 80;
      Active := True;
      if Socket.SocketHandle <> INVALID_SOCKET then
      begin
        iSize := SizeOf(dwBuffer);
        getsockopt(Socket.SocketHandle, SOL_SOCKET, SO_RCVBUF, PChar(@dwBuffer), iSize);
        ShowMessageFmt('Tamaño del Buffer de Recepción: %d bytes', [dwBuffer]);
      end
    finally
      Free;
    end;

Podes cambiarlo utilizando la función setsockopt, aunque me parece que tienes un problema de diseño, no del tamaño del buffer.

Saludos!