Не работает ресурс в Win7

В общем если нужно,вот код извлечения:

Code:

procedure ExtractRes(ResType, ResName, ResNewName : String); 
var 
Res : TResourceStream; 
Begin 
Res:=TResourceStream.Create(Hinstance,Resname,
Pchar(ResType)); 
Res.SavetoFile(ResNewName); 
Res.Free; 
end;

Code:

 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
ExtractRes('EXEFILE', 'program', 'program.exe'); 
if fileexists ('program.exe') then shellexecute(0,'open','program.exe',0,0,SW_SHOW)
else Showmessage('fuck you!');
end;