var

MyRes: TResourceStream;  //资源文件

begin

if not FileExists('my.dll') then   //判断是否存在对应文件

  begin

    try

      dmRes := TResourceStream.Create(HInstance, 'my', RT_RCDATA);  //这里要提前添加RES文件，这个适用于XE版本

      dmRes.SaveToFile('my.dll');  //释放出Dll文件

      dmRes.Free;   //释放资源文件

    finally

    end;

  end;