function StrCat(Dest:  PChar; const Source: PChar):  PChar;

Функция StrCat копирует Source в конец Dest. Необходимо убедиться, что в Dest достаточно места для копии Source. Рассмотрите возможность применения процедуры StrLCat для того, чтобы предотвратить переполнение буфера Dest. StrCat возвращает указатель не начало целевой строки (Dest).