Iconos en los botones...

[delphi.com.ar]

En tiempo de ejecución puedes hacer algo similar a esto:

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!