[ryderx34]

Код:

1 2 3 4 5 6 7

var   S: String;   R: TRect;   H: Integer;   H := DrawText(Canvas.Handle, PChar(S), Length(S), R, <b>DT_WORDBREAK</b> or <b>DT_NOCLIP</b>); ShowMessage('Высота текста = ' + IntToStr(H));