Необходимо извлечь .exe из ресурсов .exe скомпилированного с delphi xe.

[bagabuga]

Здравствуйте! У меня возникла проблема. Мне необходимо из ресурсов exe (*.res) извлечь и запустить файл exe. Вообщем, что бы было понятнее, 2 в 1.
До этого в delphi 7 делал это такой процедурой (особо в этом не разбираюсь, код нашел в интернете):

function TFormMain.LoadTextFromResource(ResourceName: String): String;
var
   RC: Cardinal;
   Adr: Cardinal;
   Size: Integer;
begin
 Result := '';
 RC := FindResource(0,PChar(ResourceName), 'TXT');
 if RC=0 then Exit;
 try
   Adr := LoadResource(0,RC);
   if Adr=0 then Exit;
   Size := SizeOfResource(0,RC);
   SetLength(Result,Size);
   Move(PChar(Adr)^,Result[1],Size);
 finally
   FreeResource(RC);
 end;
end;

Далее:

procedure TFormMain.TimerRunTimer(Sender: TObject);
var ExeFile:string;
     Exe:TextFile;
begin
 ExeFile:=LoadTextFromResource('ExeFile');

 AssignFile(Exe, NameFile);
 ReWrite(Exe);
 WriteLn(Exe, ExeFile);
 CloseFile(Exe);

 ShellExecute(Handle, 'open', pchar(NameFile), nil, nil, SW_SHOWNORMAL);
end;

Может код некорректный, со стороны профи, но тем не менее работал. Решил с delphi 7 перейти на XE, в ней скомпилировал. Файл извлекся, но запускаться не желает. Помогите, пожалуйста, в решении проблемы, буду очень благодарен.

[Человек_Борща]

А чем вам TResourceStream не угодил?

[bagabuga]

Сообщение от Человек_Борща

А чем вам TResourceStream не угодил?

Я же говорю, особо в это не вникал (*.res файлы, работа с ними), процедуру просто нашел в интернете. Огромное Вам спасибо за подсказку, нашел как работать с TResourceStream, теперь всё ок.