delphi7升级为2010 ,关于TIdy TCP控件呢。

procedure TformMain.IdTCPServer1Execute(AThread: TIdPeerThread);
var
    i,j,DataSize:Integer;
    Buffer:array of byte;
    vSendMess: array of Byte;
    buffer1:array of byte;
begin
    with   AThread.Connection   do  //不能在2010下运行
    begin
    AThread.Connection.ReadFromStack();
    DataSize:=AThread.Connection.InputBuffer.Size;
    SetLength(Buffer,DataSize);
    if DataSize>0  then
        ReadBuffer(Buffer[0],DataSize);