TrimTextToFitRect

function TrimTextToFitRect(

  const Canvas: TCanvas;

  const Text: string;

  const ARect: TRect;

  TextFlags: UINT;

  Delimiters: string = ' '#9;

  UseEllipsis: Boolean = True

):string;