Indy 读取所有内容

int len=AContext->Connection->Socket->InputBuffer->Size;
if(len>0)
{
TBytes buffer;
AContext->Connection->Socket->ReadBytes(buffer, len, false);
}