Manejo de îcono (varios tamaños)

[roman]

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