type TNewVideoFrameEvent = procedure(Sender: TObject; Width: integer; Height: integer; DataPtr: pointer) of object