Indy как узнать размер входящего пакета?

[Dexes]

Работаю через TIdTCPServer.
Входящий пакет ловлю данной процедурой

procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);
var
  CommBlock: TCommBlock;
  NewCommBlock: TCommBlock;
  ActClient: PClient;
  Coords : TPoint;
begin
  if not AThread.Terminated and AThread.Connection.Connected then
    begin
      ActClient := PClient(AThread.Data);
      ActClient.LastAction := Now;
      case <Что здесь должно быть? Как узнать длину пакета?> of
        sizeOf(CommBlock) :
          begin
            AThread.Connection.ReadBuffer (CommBlock, SizeOf (CommBlock));
            NewCommBlock.Command := 'Next';
            NewCommBlock.Msg := 'Alright! I get your CommBlock';
            Protocol.Lines.Add(NewCommBlock.Msg);
            AThread.Connection.WriteBuffer (NewCommBlock, SizeOf (NewCommBlock), true);
          end;
        sizeOf(Coords) :
          begin
            AThread.Connection.ReadBuffer (CommBlock, SizeOf (CommBlock));
            NewCommBlock.Command := 'Next';
            NewCommBlock.Msg := 'Alright! I get your TPoint';
            Protocol.Lines.Add(NewCommBlock.Msg);
            AThread.Connection.WriteBuffer (NewCommBlock, SizeOf (NewCommBlock), true);
          end;
        end;
    end;
end;

Вот собственно и вопрос, как узнать длину входящего пакета?

[veniside]

ТСП передаёт поток данных, длину пакета следует передавать самому.