En tiempo de ejecución puedes hacer algo similar a esto:
Código:
var
MyIcon :TIcon;
begin
MyIcon:=TIcon.Create;
Try
MyIcon.LoadFromFile('\\Ntserver\computos\Archivos Comunes\Iconos\human1.ico');
SpeedButton1.Glyph.Width := MyIcon.Width;
SpeedButton1.Glyph.Height:= MyIcon.Height;
SpeedButton1.Glyph.Canvas.Draw(0, 0, MyIcon);
finally
MyIcon.Free;
end;
PD: Yo te recomendaría buscar (o armar
) algun editor de propiedades que cargue un ícono y lo guarde como Glypth
Saludos!