Модуль: SysUtils

Описание
Функция копирует длинную строку S2 в конец длинной строки S1. Данная функция не выполняет проверку длины, поэтому необходимо позаботиться, чтобы буфер результирующей строки вмещал как минимум StrLen(S1)+ StrLen(S2)+1 символ.

Пример
const
   P0: PChar = 'русско-';
   P1: PChar = 'английский';
   P2: PChar = 'немецкий';
var
   S1, S2: array[0..20] of Char;
begin
   StrCopy(S1, P0);
   StrCopy(S2, P0);
   StrCat(S1, P1);     { S1 := 'русско-английский' }
   StrCat(S2, P2);     { S2 := 'русско-немецкий' }
   MessageDlg( S1+ #13+ S2, mtInformation, [mbOk], 0);
end;