объединение двух тестовых фалов в Lazarus (Delphi) "по-старому"...

 Просто возмутило осложнение вариантов объединения двух текстовых файлов  в Lazarus (Delphi) во множестве вариантов поэтому поступили так:

var
tfOut,tfIn:textfile;
file_s1,file_s2:string;
...

AssignFile(tfOut, file_s1);
AssignFile(tfIn, file_s2);
reset(tfIn);
 try
append(tfOut);
while not eof(tfIn) do begin
readln(tfIn,body_file);
writeln(tfOut,body_file);
end;
   CloseFile(tfIn);
   CloseFile(tfOut);
 except
   on E: EInOutError do
    writeln('File error. Elaboration: ', E.Message);
 end;

===================================================

если говорить вообще об тестовом способе через консоль -

If ShellExecute(0,nil, PChar('cmd'),PChar('/c copy text1.txt+text2.txt /b text1.txt'),nil,1)=0 then;

 0/1 открывать окно консоли или нет, 

/С /K - закрывать/не закрывать окно консоли после выполнения

но при обработке тысяч файлов этот метод не справляется по скорости обработки, у меня происходит отказ доступа после какого-то времени