[M.A.D.M.A.N.]

var etalon:tstream;
.............
var a:tfilestream;
begin
a:=tfilestream.create('File.txt');
a.seek(x,soFromDeginning);//Где х-откуда
etalon.copyfrom(a,a.у);//Где у-до куда
a.free;
end;