Запись потока в ресурс RCDATA

Как в delphi записать поток MemoryStream в ресурс данных?

procedure StringtoRes (filename:string; Inputstream: TMemoryStream);
var
 hUpdate: THandle;
begin
 hUpdate := BeginUpdateResource(PChar(filename), True);
 UpdateResource(hUpdate, RT_RCDATA, 'ID', LANG_NEUTRAL,InputStream,InputStream.Size);
 EndUpdateResource(hUpdate,False);
end;

Этот код дает мне нарушение прав доступа и сильное чувство неадекватности, потому что я даже не знает с чего начать чинить. Кто-нибудь?