test1 := 'blabla';
test2 := 'huhu';

pResourceID := MakeIntResource('test1');
            if not UpdateResource(hInst, RT_STRING, pResourceID, MAKELANGID(LANG_NEUTRAL,SUBLANG_NEUTRAL), PWideChar(test1), Length(test1)) then
              MessageDlg(SysErrorMessage(GetLastError), mtError, [mbOk], 0);

  
pResourceID := MakeIntResource('test2');
            if not UpdateResource(hInst, RT_STRING, pResourceID,MAKELANGID(LANG_NEUTRAL,SUBLANG_NEUTRAL) , PWideChar(test2), Length(test2)) then
              MessageDlg(SysErrorMessage(GetLastError), mtError, [mbOk], 0);

function TForm1.ReadResString( res: string ): string;
var
  tmp: pchar;
  HI, HG: Cardinal;
  Resource: Pointer;
  pResourceID: PChar;
begin
  pResourceID := MakeIntResource(res);
  HI := FindResource(hInstance, pResourceID, RT_STRING);
  if HI <> 0 then
  begin
    HG := LoadResource(hInstance, HI);
    if HG <> 0 then
    begin
      Resource := LockResource( HG );
      if Assigned(Resource) then
      begin
        tmp := Resource;
        result := string(tmp);
      end;
    end;
  end
  else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Result := 'ERROR';
  end;
end;plus