文件拷贝(50分)

请问怎样将一个非TXT 文件从指定字节起拷贝成指定长度的文件
最好请给出一详细例程。
谢谢！

var
fi,fo: File;
buf: array[0..500] of char;
ReadNum: integer;
begin
AssignFile(fi,'源文件名');
Reset(fi,1);
Seek(fi,?);//这里为指定位置
AssignFile(fo,'目的文件名');
ReWrite(fo,1);
repeat
blockRead(Fi,Buf,Sizeof(Buf),ReadNum);
BlockWrite(fo,buf,Sizeof(Buf));
Until ReadNum<=0;
CloseFile(fi);
CloseFile(fo);
end;

var
FromStream: TFileStream;
ToStream: TFileStream;
…………
begin
FromStream := TFileStream.Create (FileName, fmOpenWrite);
ToStream := TFileStream.Create(NewFileName, fmCreate);
ToStream.CopyFrom (FromStream, Count )…………
具体再看看帮助吧！

这几天出差,抱歉,两种方法都挺好! 谢谢