Почемуто не работает, хотя чтото в файле происходит, по крайней мере размер больше становится

Попробуй сам разобраться, возможно дело в этом
UpdateResource(hUpdateRes,RT_ICON,PChar(2),LANG_NEUTRAL, lpResLock,Size);
code_768
P.S. Можно обойтись и без промежуточного сохранения, оптимизируй сам, но не гарантия что это позволит загружать в файл мульти иконки, т.е. содержащие в себе несколько разного размера.