добавлю может кому пригодится. делал так:
свойство листбокста ставлю
style:=lbOwnerDrawFixed;
затем свойсвто ItemHeight:=30;//высота которая нужна мне
и потом событие листбокса
Код
procedure TForm1.lst1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with lst1 do begin
Canvas.FillRect(Rect);
Canvas.Font.Style:=Canvas.Font.Style+[fsBold]; //первая строка жирная
Canvas.TextOut(Rect.Left+3, Rect.Top, 'Строка 1' ); // где 3 - отступ слева; Top - отступ сверху
Canvas.Font.Style:=Canvas.Font.Style-[fsBold]; //убираем жирность для второй строки
Canvas.TextOut(Rect.Left+3, Rect.Top+13, 'Строка 2') //+13 делаем вторую строчку на 13 пикселей ниже первой
end;
end;