求教在delphi中，如何把一个exe做为res加入到dll中，并在运行时生成exe文件执行

第一：准备exe程序 a.exe
第二：准备资源：
建立一个资源文件myRes.rc,内容如下：
MyExe EXE a.exe

第三：编译资源
进入DOS，运行 brcc32 myRes.rc;
这时编译出资源：myRes.RES

第四：
创建dll文件，代码如下：
library Project1;
uses
SysUtils,
Classes,dialogs,
common in 'common.pas';

{$R *.res}
{$R myRes.RES}

exports
loadDll;

begin
releaseExe();
end.

unit common;
interface
uses
Classes,Windows,SysUtils,dialogs;

function FileResourceToLocalFile(Instance:Cardinal;ResName,ResType,sFileToSaved:String):boolean;
procedure releaseExe();
procedure loadDll();

implementation

function FileResourceToLocalFile(Instance:Cardinal;ResName,ResType,sFileToSaved:String):boolean;
Var
FileStream:TFileStream;
ResourceStream:TResourceStream;
Begin
result:=true;
Try
Try
ResourceStream:=TResourceStream