VCL Delphi

Title: Setting ListBox font
One of the ways is using WM_SETFONT message:
SendMessage(
ListBox1.Handle,
WM_SETFONT,
GetStockObject(System_Fixed_Font),
1);