TextFit

function TextFit(

  rp: pRastPort;

  const string_: pCHAR;

  strLen: ULONG;

  textExtent: pTextExtent;

  constrainingExtent: pTextExtent;

  strDirection: LongInt;

  constrainingBitWidth: ULONG;

  constrainingBitHeight: ULONG

):ULONG;