[ryderx34]

Код:

var
  S: String;
  R: TRect;
  H: Integer;

H := DrawText(Canvas.Handle, PChar(S), Length(S), R, DT_WORDBREAK or DT_NOCLIP);
ShowMessage('Высота текста = ' + IntToStr(H));