解决方法
使用ListView：
这是ListView的DFM：
object ListView1: TListView
Left = 8
Top = 8
Width = 380
Height = 28
BorderWidth = 4
Columns = <>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsUnderline]
Items.ItemData = {
0376000000020000000500000001000000FFFFFFFF00000000FFFFFFFF000000
00104C006F0067006F002E0067006900660020002800310020004B0042002900
3B000500000005000000FFFFFFFF00000000FFFFFFFF000000001147006C006F
00620065002E0067006900660020002800360020004B00420029003B00}
ParentFont = False
SmallImages = ImageList1
TabOrder = 0
ViewStyle = vsList
end