[angvelem]

Тут всё просто:

Код:

var
  aRect : TRect;
begin
  SetRect(aRect, 10, 10, 100, 20); // выставь координаты прямоугольника для текста
  DrawText(DC, PChar('Мой текст'), -1, aRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
  TextOut(DC, 10, 10, PChar('Мой текст'), 9);
end;

Использование DrawText можешь посмотреть в выложенном примере в процедуре ListViewDrawItem.

Код:

procedure ListViewDrawItem(lpdis : PDRAWITEMSTRUCT);
var
  aRect	: TRect;
begin
...
  DrawText(lpdis.hDC, PChar(LV_GetItemText(PlayList, lpdis.itemID, 1)), -1, aRect, DT_VCENTER or DT_END_ELLIPSIS);
end;