concatenar archivos rtf

[gabyzava]

Necesito unir el contenido de 2 archivos rtf

Encontre este codigo pero solo copia el primer archivo

saben porque?

F1:=TFileStream.Create('2.RTF',fmOpenRead+fmShareDenyNone);
F2:=TFileStream.Create('21.RTF',fmOpenRead+fmShareDenyNone);
F3:=TFileStream.Create('c.RTF',fmCreate);

F3.CopyFrom(F1,(F1.Size));
F3.CopyFrom(F2,F2.Size);

f1.Free;
f2.Free;
f3.Free;

Les agradezco mucho, me urge