[gdlrinfo]

Estimados nuevamente por aquí con otra duda necesito unir 2 RTF que tienen una imagen y un pequeño encabezado la cuestión es que utilizo esto :

Código Delphi [-]
Var
sAr1,sAr2 : TStringList;
begin
  sAr1 := TStringList.Create;
  sAr2 := TStringList.Create;
  sAr1.LoadFromFile('C:\RTF\1.rtf');
  sAr2.LoadFromFile('C:\RTF\2.rtf');
  sAr1.AddStrings(sAr2);
  sAr1.SaveToFile('C:\RTF\Nuevo.rtf');
  sAr1.Free;
  sAr2.Free;
end;

pero solo me deja el primero el segundo no lo agrega tienen alguna idea ?
desde ya muchas gracias !!!