将图象封装到dll文件中,然后在From中调用的问题(50分)

本人正在开发的一套MIS中,涉及以下问题,请各位帮忙解决:
本人在系统中 做了许多BMP 64位真彩图片,并通过ImageFrom控件通过LoadFromFile方法进行
调用.可是图片是放在一个固定目录中的.现在需要:
1 将图片打成DLL文件
2 在窗体的 Create事件中动态装载指定的图片资源
3 Free窗体后,将指定的图片资源占用的内存缓冲中清除

创建纯资源的DLL
创建并编译一个空的DLL工程，在这个工程中包含你的.res资源文件。

示例：

library ResTest;

uses
SysUtils;

{$R MYRES.RES}

begin

end.


使用这个纯资源DLL时，只需要简单地载入这个DLL，就可以使用你想使用的资源。

示例：

{$IFDEF WIN32}
const BadDllLoad = 0;
{$else
}
const BadDllLoad = 32;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
h : THandle;

Icon : THandle;

begin

h := LoadLibrary('RESTEST.DLL');

if h <= BadDllLoad then

ShowMessage('Bad Dll Load')
else
begin

Icon := LoadIcon(h, 'ICON_1');
DrawIcon(Form1.Canvas.Handle, 10, 10, Icon);
FreeLibrary(h);
end;

end;

接受答案了.