var
str1,str2 : array[0..128]of char;
begin
str1:='Скомпелируем в';
str2:='месте!';
lstrcat(str1,str2);
MessageBox(0,str1,0,0);
end;

buf:array[0..100] of char;
s1char='file1';
s2char='file2';
s3char;

s3:=lstrcpy(buf, s1);
s3:=lstrcat(buf, s2);

writeln(s3);