Setting ListBox font

One of the ways is using WM_SETFONT message:

  SendMessage(
    ListBox1.Handle, 
    WM_SETFONT, 
    GetStockObject(System_Fixed_Font), 
    1);