var imgIcon: TIcon; imgRect: TRect; begin imgIcon := TIcon.Create; imgIcon.Handle := ExtractIcon( 'EXEFILENAME' ); with SpeedButton1.Glyph do begin Width := imgIcon.Width; Height := imgIcon.Height; imgRect := Rect( 0, 0, Width, Height ); Canvas.CopyRect( imgRect, imgIcon.Canvas, imgRect ); end; |