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