Prueba con este procedimiento:
Código Delphi
[-]
procedure LoadIconFromResource(Icon: TIcon; Width, Height: Integer);
begin
Icon.Handle := LoadImage(HInstance, 'MAINICON', IMAGE_ICON, Width, Height, 0);
end;
El parámetro Icon debe ser un TIcon ya construido, por ejemplo:
Código Delphi
[-]
LoadIconFromResource(Image1.Picture.Icon, 16, 16);
// Saludos