1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormCreate(Sender: TObject);
begin

  ListBox1.Style := lbOwnerDrawVariable;
  ListBox1.Canvas.Font := ListBox1.Font;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);
var
  Format: Integer;
  Rect: TRect;
begin

  with (Control as TListBox) do
  begin
    Format := DrawTextBiDiModeFlags(DT_WORDBREAK or DT_NOPREFIX or DT_CALCRECT or DT_LEFT);
    Rect := Classes.Rect(0, 0, ClientWidth - 4, 1);
    DrawText(Canvas.Handle, PChar(Items[Index]), Length(Items[Index]), Rect, Format);
  end;
  if Rect.Bottom > 251 then
    Height := 255
  else
    Height := Rect.Bottom + 4;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  Format: Integer;
begin

  with (Control as TListBox) do
  begin
    Canvas.FillRect(Rect);
    Format := DrawTextBiDiModeFlags(DT_WORDBREAK or DT_NOPREFIX or DT_LEFT);
    Rect.Left := Rect.Left + 2;
    Rect.Top := Rect.Top + 2;
    DrawText(Canvas.Handle, PChar(Items[Index]), Length(Items[Index]), Rect, Format);
  end;

end;