unir varios archivos

[Enan0]

Hola Amigos.

Estoy con un incoveniente al unir Varios Archivos RTF (los cuales tienen varias imagenes y tamaños diferentes).

El problema es el siguiente, el proceso finaliza sin Errores, pero al verificar solo se observa el primero de los archivos.

Esto no Sucede en cambio si se utilizan archivos que contienen solamente texto, los cuales son unidos correctamente.

aca dejo la parte del codigo relevante a la operacion.

Código Delphi [-]

{
Fileboxrtf es un FileListBox en el cual muestro selecciono y los archivos.
StopByUser es una Variable Boolean que el utilizo como flag para verificar si el usuario cancelo la operacion.
stBar: status Bar....
Pbar: ProcessBar...
stSrc y StDest: TfileStream.
}
 while (FileBoxrtf.Count>i) and (not StopByUser) do begin
          StBar.Panels.Items[1].Text:=ExtractFileName(stDest.FileName)+ ' <--- ' +ExtractFileName(FileBoxrtf.Items.Strings[i]);
          Application.ProcessMessages;
          stSrc:=TFileStream.Create(FileBoxrtf.Items.Strings[i],fmOpenRead or fmShareDenyWrite);
          Application.ProcessMessages;
          StDest.CopyFrom(StSrc,stSrc.Size);
          Application.ProcessMessages;
          stSrc.Free;
          inc(i);
          Pbar.StepIt;
        end;

Gracias.