var
   stream : TFilestream;
   hInst: THandle;
   ptr : [color=red]Pointer[/color];
begin
   Stream := TFileStream.Create('C:\test.bmp',fmOpenRead);
   getmem (ptr,Stream.size+1);
   try
      Stream.Seek(soFromBeginning,0);
      stream.read(ptr[b][color=red]^[/color][/b],Stream.size); [color=red]// <== [/color]
      hInst:=BeginUpdateResource(Pchar(Test.exe), False);
      if hInst > 0 then
         begin
         UpdateResource(hInst, RT_Bitmap,'Test',
         MAKELANGID(LANG_NEUTRAL,SUBLANG_NEUTRAL),ptr[b][color=red]^[/color][/b],Stream.size); [color=red]// <== [/color]
         EndUpdateResource(hInst, False);
         end;
   finally
      freemem (ptr,Stream.size+1);
      stream.Free;
   end;
end;