[The Shadow]

Я уже сделал.

Код:

ListBox1 := CreateWindowEx(
WS_EX_CLIENTEDGE, 'listbox', '',
WS_CHILD or WS_VISIBLE or LBS_EXTENDEDSEL,
120, 40, 121, 97, Handle, 0, hInst, nil);
SendMessage(ListBox1, WM_SETFONT, hFont, 0);