richconcat1

procedure richconcat1(

  var dest: richstringty;

  const b: richstringty

); overload;

procedure richconcat1(

  var dest: richstringty;

  const b: msestring;

  const fontstyle: fontstylesty = [];

  const fontcolor: colorty = cl_none;

  const colorbackground: colorty = cl_none

); overload;