UpdateResource macht nicht was ich möchte

[Flodding]

hiho nochmal

also jetzt bin ich dabei den ProductName einer anderen exe zu ändern... hab auch schon ganz brav gegoogelt und auch hier bin ich schon einigermaßen fündig geworden... erfolg blieb leider aus und deshalb meine frage:

Delphi-Quellcode:

procedure TfrmChangeAppName.Button1Click(Sender: TObject);
var
    h      : Thandle;
    s      : string;
begin

  s:= edit1.Text;
  h := BeginUpdateResource(pchar(AppPath),false);
  UpdateResource(h,'RT_STRING',MakeIntResource(1),'ProductName',@s[1],SizeOf(s));
  EndUpdateResource(h,false);
end;

hier bekomme ich die meldung: [Pascal Fehler] changeappname.pas(39): E2010 Inkompatible Typen: 'Word' und 'string'

wie bekomm ich das in den griff?