Как вывести текст с красивым обрезанием если не помещается?

Code:

procedure TForm1.FormPaint(Sender: TObject);

var

r: TRect;

begin

r := Rect(20, 20, 110, 70);

// DT_PATH_ELLIPSIS or DT_WORD_ELLIPSIS or DT_END_ELLIPSIS

DrawTextEx(Form1.Canvas.Handle, 'Delphi World - это круто!!!',

  25, r, DT_WORD_ELLIPSIS, nil);

end;