Webcam problem directShow9 bitmap panel

with aBmp,canvas do begin
bitblt(handle,0,0,width,height,getDc(Panel1.handle),0,0,SRCCOPY);
textOut(5,5,'test....');
end;

unit Unit1;

interface

uses
  windows,classes,controls,graphics,forms,extCtrls,comObj,activeX, directShow9;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    pGraph      :iGraphBuilder;
    pBuilder    :iCaptureGraphBuilder2;
    pDevEnum    :iCreateDevEnum;
    pClassEnum  :iEnumMoniker;
    pMoniker    :iMoniker;
    pSrc        :iBaseFilter;
    cFetched    :pLongInt;
    videoWindow  :iVideoWindow;
    mediaControl :iMediaControl;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.picture.bitmap:=tBitmap.create;
with image1.picture.bitmap do begin pixelFormat:=pf24bit;width:=image1.width;height:=image1.height end;
//--
pGraph:=createComObject(CLSID_FilterGraph) as iGraphBuilder;
pBuilder:=createComObject(CLSID_CaptureGraphBuilder2) as iCaptureGraphBuilder2;
pBuilder.SetFiltergraph(pGraph);
pDevEnum:=createComObject(CLSID_SystemDeviceEnum) as iCreateDevEnum;
pDevEnum.createClassEnumerator(CLSID_VideoInputDeviceCategory,pClassEnum,0);
if pClassEnum.next(1,pMoniker,cFetched)=S_OK then
pMoniker.bindToObject(nil,nil,IID_IBaseFilter,pSrc);
pGraph.addFilter(pSrc,'Video Capture');
pGraph.queryInterface(IID_IMediaControl,mediaControl);
pGraph.queryInterface(IID_IVideoWindow,videoWindow);
pBuilder.renderStream(@PIN_CATEGORY_PREVIEW,@MEDIATYPE_VIDEO,pSrc,nil,nil);
videoWindow.put_windowStyle(WS_CHILD or WS_CLIPSIBLINGS);
videoWindow.setWindowPosition(0,0,panel1.width,panel1.height);
videoWindow.put_owner(panel1.handle);
mediaControl.run;
timer1.interval:=250;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with image1.picture.bitmap,canvas do begin
  bitblt(handle,0,0,width,height,getDc(Panel1.handle),0,0,SRCCOPY);
  textOut(5,5,'test....');
end;image1.refresh
end;

end.