[pascal]
var
PackageStream, FileStream: TFileStream;
BehindLastFile: Int64;
begin
{...}
FileStream.Create('C:\somefile.abc', fmOpenRead);
FileStream.Seek(0, soFromBeginning);
PackageStream.Seek(BehindLastFile, soFromBeginning);
PackageStream.CopyFrom(FileStream, FileStream.Size);
FileStream.Free;
ReBuildFileIndex;
ReBuildFooter;
end;
[/pascal]