concat

procedure concat(

  const aText: pchar;

  const aChar: char

);

procedure concat(

  const aText: pchar;

  const aText2: pchar

);

procedure concat(

  var aText: array of char;

  const aText2: pchar

);