资源方法!,Project->Resources add Resource, use User Type , select file then OK, when you use the Res then:
var hResInfo, hRes : THandle; RCData:Pointer; s:integer; Data: TMemoryStream;
begin
        hResInfo := FindResource(HInstance, 'RC名字', 'RC类型');
      hRes := LoadResource(HInstance, hResInfo);
      if hRes > 32 then {its a good load}
         begin {lock the resource}
           RCData:=LockResource(hRes);
           s:=SizeofResource(Hinstance,hResInfo);
           Data:=TFileStream.Create(...自己会的了);
           Data.Write(RCData^,s); //保存到文件
           Data.Free;
         end; //可以用了,记得结束deleteFile(..)就可以了