ReceiveText serversocket extenso

[ingabraham]

-buenas tardes

tengo un problema con la lectura en un socket, la cadena es muy extensa y no la obtengo completa.

Código Delphi [-]
procedure Tfrmmonitor.Socket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
 var lectura:string;
begin
    lectura :=socket.ReceiveText;
end;

delphi xe

componente : TServerSocket