Aviwriter

[alman12]

почему не создается avi файл ?

uses Aviwriter_2

var
   I:integer;
    BackBitmap : TBitMap;
    filename   :tfilename;
  video:taviwriter_2;
begin
    BackBitmap             := TBitMap.Create;
    BackBitmap.Width       := webbrowser1.width;
    BackBitmap.Height      := webbrowser1.height;
    BackBitmap.PixelFormat := TPixelFormat.pf32bit;

  video := taviwriter_2.Create(nil);
video.fileName:='bmp.avi';
video.height:=BackBitmap.Width;
//seksi.WavFileName:='';
video.OnTheFlyCompression:=true;
video.Stretch:=false;
video.frameTime:=40;
video.InitVideo;
   for I := 1 to 100 do
   begin
   BitBlt(backbitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
   GetDC(webbrowser1.Handle), 0, 0, SRCCopy);
  video.AddFrame(backbitmap);
  // backbitmap.SaveToFile('filename'+inttostr(i)+'.bmp');
   end;

//video.InitVideo;
video.FinalizeVideo;
video.WriteAvi;
end;

[alman12]

никто не может помочь ?