Модуль: SysUtils

Описание
Функция копирует символы строки S2 в конец строки S1 до тех пор, пока количество символов результирующей строки не достигнет значения MaxLen.

Пример
const
   S1: PChar = 'фут';
   S2: PChar = 'болельщик';
var
   S: array[0..13] of Char;
begin
   StrLCopy(S, S1, StrLen(S1));
   StrLCat(S, S2, 6);     { S :='футбол' }
   MessageDlg(S, mtInformation, [mbOk], 0);
end;