StrCopy、StrCat、StrPas

const

  P1: PChar = 'CodeGear';

  P2: PChar = 'Delphi';

var

  S: array[0..15] of Char;

begin

  StrCopy(S, P1);

  StrCat(S, ' ');

  StrCat(S, P2);

  ShowMessage(StrPas(S)); {CodeGear Delphi}

  ShowMessage(S);         {CodeGear Delphi}

end;