Font (ImageList Control) example for Delphi

{change the font properties}
if fsBold in LEADImgList1.Font.Style then
    LEADImgList1.Font.Style := LEADImgList1.Font.Style - [fsBold]

else
    LEADImgList1.Font.Style := LEADImgList1.Font.Style + [fsBold];

LEADImgList1.Font.Size := 10;
LEADImgList1.Font.Name := 'Arial';