TIPMCastReadEvent = procedure (Sender: TObject; AData: TStream; ABinding: TIdSocketHandle) of object;