[ryderx34]

если файлы текстовые то попробуй что-то вроде этого:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  S1, S2: TStringList;
begin
  S1:= TStringList.Create;
  S2:= TStringList.Create;
  S1.LoadFromFile('C:\File1.txt');
  S2.AddStrings(S1);
  S2.Add('some string');
  S1.LoadFromFile('C:\File2.txt');
  S2.AddStrings(S1);
  S1.Free;
  S2.SaveToFile('TargetFile.txt');
  S2.Free;
end;