Code:

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;