fitstring

function fitstring(

  const source: msestring;

  const len: Integer;

  const pos: stringposty = sp_left;

  const cutchar: msechar = #0;

  const padchar: msechar = ' '

):msestring;