求救：怎样将swf文件中每一帧提取出来转换为图片
如题

[解决办法]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
m,I: integer;
bmp: TBitMap;
begin
bmp := Tbitmap.Create;
bmp.Width := ShockwaveFlash1.Width;
bmp.Height := ShockwaveFlash1.Height;
bmp.PixelFormat := pf24bit;
m := ShockwaveFlash1.TotalFrames;
for i := 1 to m do
begin
if bStop then Exit;
ShockwaveFlash1.GotoFrame(i);
ShockwaveFlash1.PaintTo(bmp.Canvas.Handle,0,0);
bmp.savetofile('.\a\' + IntToStr(i) + '.bmp');
end;
bmp.Free;
end;