[Decoding]

Напиши процедуру, объединяющую 2 файла, например:

Код:

procedure AddToFile( f1, f2: string );
var
  _f1, _f2: Text;
  s: string;
begin
   AssignFile( _f1, f1 );
   Append( _f1 );
   AssignFile( _f2, f2 );
   Reset( _f2 );
   while not Eof( _f2 ) do
   begin
      Readln( _f2, s );
      Writeln( _f1, s );
   end;
   CloseFile( _f2 );
   CloseFile( _f1 );
end;

Первый параметр (f1) - файл, в который нужно записать, второй (f2) - файл, из которого берем информацию.

А потом делай примерно так (возможны вариации на тему...)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   for i := 2 to сколько_нужно do
      AddToFile( '1.txt', IntToStr( i ) + '.txt' );
end;