Автор: Baa
WEB-сайт: http://forum.vingrad.ru

procedure TForm1.Button1Click(Sender: TObject);
var
  AModule: THandle;
begin
  AModule := LoadLibrary('Images.dll');
  image1.Picture.BitMap.LoadFromResourceName(AModule, 'StartMine');
  FreeLibrary(AModule);
end;