Функция StrLCat
модуль Strings
Назначение:
Присоединяет копию одной строки к концу другой и возвращает результат такой конкатенации.
Целевая платформа: Реальный режим, защищенный режим, Windows.
Описание: function StrLCat(Dest, Source: PChar; MaxLen: Word): PChar
Примечания:

StrCat добавляет к Dest копию строки Source (не более MaxLen - StrLen(Dest) символов) и возвращает результат в Dest. Для определения параметра MaxLen вы можете использовать функцию SizeOf.
См. также: StrCat.
Пример:

uses Strings, Crt;
{ в Windows используйте WinCrt }
var
   S: array[0..9] of Char;
begin
   StrLCopy(S, 'Borland', SizeOf(S) - 1);
   StrLCat(S, ' ', SizeOf(S) - 1);
   StrLCat(S, 'Pascal', SizeOf(S) - 1);
   Writeln(S);
end.