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;