Add the ISampleGrabberCB to the main class of your app: TForm1 = class(TForm, ISampleGrabberCB) You have to create the following in your main class: Private FSampleGrabber : IBaseFilter m_SampleGrabber: ISampleGrabber function SampleCB(Sa