вертикальное выравнивание текста в строках CheckListBox

[KORT]

Доброе время суток! Имеется CheckListBox, в обработчике DrawItem:

DrawText(CheckListBox1.Canvas.Handle,PChar(CheckListBox1.Items[Index]),Length(CheckListBox1.Items[Index]),Rect, DT_WORDBREAK);

Получается во что: !см. миниатюры
Первая строка отлично, как надо - все перенеслось, а вот 2-4 строки выглядят некрасиво... отсюда вопрос: как сделать красиво?

Пытался сделать вот так:

if CheckListBox1.Canvas.TextWidth(CheckListBox1.Items[Index]) > CheckListBox1.Width then
        CheckListBox1.ItemHeight:=42
    else
        CheckListBox1.ItemHeight:=21;

Когда встречаются одинаковые по высоте строки, то все ок, но как только разные - то ошибка, то бесконечный цикл...

[Аватар]

var xHeight: Integer;
begin
  xHeight:=DrawText(CheckListBox1.Canvas.Handle,PChar(CheckListBox1.Items[Index]),Length(CheckListBox1.Items[Index]),Rect,DT_CALCRECT or DT_WORDBREAK);
  if xHeight<CheckListBox1.ItemHeight then begin
    Rect.Top:=Rect.Top+(CheckListBox1.ItemHeight-xHeight) div 2;
    Rect.Bottom:=Rect.Top+xHeight;
  end;
  DrawText(CheckListBox1.Canvas.Handle,PChar(CheckListBox1.Items[Index]),Length(CheckListBox1.Items[Index]),Rect,DT_WORDBREAK);
end;

[KORT]

спс, то что надо! Чуток доработал:

var
xHeight: Integer;
begin
xHeight:=DrawText(CheckListBox1.Can vas.Handle,PChar(CheckListBox1.Item s[Index]),Length(CheckListBox1.Items[Index]),Rect,DT_CALCRECT or DT_WORDBREAK);
if xHeight < CheckListBox1.ItemHeight then
begin
Rect.Top:=Rect.Top + (CheckListBox1.ItemHeight - xHeight) div 2;
Rect.Bottom:=Rect.Top + xHeight;
end
else
CheckListBox1.ItemHeight:=xHeight;
DrawText(CheckListBox1.Canvas.Handl e,PChar(CheckListBox1.Items[Index]),Length(CheckListBox1.Items[Index]),Rect,DT_WORDBREAK);