// open a dll/exe file for playing with the resources
function BeginUpdateResourceW (fileName      : PWideChar;
                              delExistingRes : bool    ) : dword; stdcall;

// add, change or delete a resource
function UpdateResourceW (update  : dword;
                          type_    : PWideChar;
                          name    : PWideChar;
                          language : word;
                          data    : pointer;
                          size    : dword    ) : bool; stdcall;

// close the resource handle again, either save or discard the changes
function EndUpdateResourceW (update  : dword;
                            discard : bool ) : bool; stdcall;

{$R test.res} //Your resource file

procedure ReadResourceString(var index: integer);
var
  buf: array[0..255] of Char;
begin
  Loadstring(hinstance, index, @buffer, 255);
  str := StrPas(buffer);
end;

procedure WriteResourceString(rs: PResStringRec; newStr: PChar);
var
  oldprotect: DWORD;
begin
  VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_READWRITE, @oldProtect);
  rs^.Identifier := Integer(newStr);
  VirtualProtect(rs, SizeOf(rs^), oldProtect, @oldProtect);
end;