delphi2009资源文件的释放，总提示找不到文件

Question

我在delphi2009中的资源文件中添加了一个可执行文件，在程序运行的时候将这个文件释放出来，但是每次都提示找不到文件请高手指点一下，要怎么做才能释放出来！
总提示Resource Resource_1 notfound
谁指点一下要怎么做才能正常释放

Answer 1

代码我都是网上找的
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  Res.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  rs: TResourceStream;
begin
  rs := TResourceStream.Create(HInstance, 'Resource_1', PChar('RCData'));
  rs.SaveToFile('D:\自动更新\ProAutoUp.exe');
  rs.Free;
end;资源文件是用delphi2009自带的编辑器加进去的，RC文件中显示
Resource_1 RCData "ProAutoUp.exe"

Answer 2

类型不对
rs := TResourceStream.Create(HInstance, 'Resource_1', MakeIntResource(RT_RCDATA));

Answer 3

一语道破，这个我是按delphi2009里的类型写的，能不能请楼上的朋友解释一下，为什么要这这么转换类型，谢谢！