swf资源文件释放

//定义一个资源文件   .rc
{MySwf   RC_DATA   "c:\123.swf"
MySwf   为资源标识符，可任意，RC_DATA　不可改
再用brcc32编译生成.res文件

包含资源文件}
{$   资源文件名}
//打开过程
procedure   TForm1.Button7Click(Sender:   TObject);
var   swfstream:tfilestream;
resstream:tresourcestream;
begin
swfstream:=tfilestream.Create('c:\myswf1.swf',fmCreate);
resstream:=tresourcestream.Create(0,'MySwf',rt_rcdata);
swfstream.CopyFrom(resstream,resstream.size);
resstream.free;
resstream.free;
end;