procedure resupdate(strFile1,strFile2,lpType,Nameresourse:Pchar);
var hHandle,hResLoad,hResData,hUHandle:cardinal;
data:pointer;
begin
hHandle:=LoadLibrary(strFile1);
hResLoad:=FindResource(hHandle, Nameresourse, lpType);
hResData:=LoadResource(hHandle, hResLoad);
data:=LockResource(hResData);
hUHandle:=BeginUpdateResource(strFile2, false);
UpdateResource (hUHandle, lpType, Nameresourse, LANG_Russian, Data,SizeofResource(hHandle, hResLoad));
EndUpdateResource(hUHandle, false);
FreeLibrary (hHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
resupdate('ResUpdate.dll','Res.dll',RT_BITMAP,'BMP');
resupdate('ResUpdate.dll','Res.dll',RT_DIALOG,'Nokg');
end;