再用一个stream,如
var
Filestream2:TStream;
temp:array of[0..125]of char;
begin
FileStream2:=TFileStream.Create('N1.mtb',fmCreate);
//第二个参数好像是fmCreate,我记不太清,你可以查一下帮助
FileStream1.Seek( , );//移到需要读的位置
FileStream1.Read(temp,125);
FileStream2.Write(temp,125);
FileStream2.Free;
FileStream2:=TFileStream.Create('N2.mtb',fmCreate);
FileStream1.Seek( , );//移到需要读的位置
FileStream1.Read(temp,84);
FileStream2.Write(temp,84);
FileStream2.Free;
end;