Use tfilestream?

Have a look at this for the basics: http://dn.codegear.com/article/26416

So .position if your friend here :-)

together with

function Seek(Offset: Longint; Origin: Word): Longint; virtual; abstract;