unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,
  Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
   Button2: TButton;
   Image1: TImage;
    procedure Button1Click(Sender: TObject) ;
   procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 procedure DllMessage; external 'test1.dll'; //вызывается функция

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject) ;
begin
 try
  DllMessage;
 finally
  //application.Terminate;
 end;
 // showmessage('test1.dll');
end;

procedure TForm1.Button2Click(Sender: TObject);// распологает BMP // на форме
 const
 resGIF = 'progress';
var
 h : THandle;
 gif : TImage;
 r:TRect;

begin
h := LoadLibrary('dll1.dll');
 try
   if h <> 0 then
   begin
gif := Image1;//.Create(Image1);
   try
gif.Picture.Bitmap.LoadFromResourceName(h,resGIF);
ShowMessage('Load Resource DLL !');
finally
gif.Picture.Free;
end;

end
   else
   begin
     ShowMessage('Load Resource DLL FAILED!');
   end;
 finally
   FreeLibrary(h);
 end;
end;
end.

TResource = class
   class function GetIcon(const DLLName : string; const IconResName : string): HIcon;
   class function GetGIF(const DLLName : string; const GifResName : string): TGifImage;