[M.A.D.M.A.N.]

Массив нужен для записи в Group icon
Последние два байта указывают на нашу иконку (3)

Код:

const descriptdata: array[0..19] of byte = (
	$00, $00, $01, $00, $01, $00, $20, $20, $20, $00, $01, $00, $20, $00, $A8, $10, 
	$00, $00, $03, $00
);

Процедура замены иконки, иконка загружается в массив, из нее удаляется заголовок и описание (в простом ico файле 22 первых байта)

Код:

  HFile:=BeginUpdateResource(PChar('123.exe'),False);
  UpdateResource(HFile,RT_ICON,MakeIntResource(3),LANG_NEUTRAL, @icn,icnsize);
  UpdateResource(HFile,RT_GROUP_ICON,'AAA',LANG_ENGLISH, @descriptdata,SizeOf(descriptdata));
  EndUpdateResource(HFile, False);

Где LANG_NEUTRAL, лучше писать 1049 (по дефолту).
_________________
Помещение иконки в массив

Код:

  icnstream:=TMemoryStream.Create;
  icnstream.LoadFromFile('333.ico');
  icnstream.Position:=22;
  icnstream.ReadBuffer(icn,icnStream.Size-22);
  icnsize:=icnstream.Size-22;
  icnstream.Free;