procedure Tfrm_textformattoolbox.FillBtnWithColor(color: TColor;
  btn: TSpeedButton);
var
  bmp: TBitmap;
begin
  bmp:=TBitmap.Create;
  try
    bmp.PixelFormat:= pf32Bit;
    bmp.SetSize(14, 14);
    bmp.Canvas.Brush.Color:=color;
    bmp.Canvas.Pen.Color:=color;
    bmp.Canvas.FillRect(Rect(0,0,bmp.Width+1,bmp.Height+1));
    btn.Glyph:=nil;
    btn.Glyph.Assign(bmp);
    btn.Refresh;
  finally
    bmp.Free;
  end;
end;