Delphi中有没有移动指针的语句？

语句经过编译成功，谢谢回复！
这个文件读写的指针吗？
下面是文件复制的程序，如果要在这个程序中使用上面的语句来移动指针，只复制文件的一部分内容，怎么写呢？

procedure TForm1.Button1Click(Sender: TObject);
var
 FromF, ToF: file;
 NumRead, NumWritten: Integer;
 Buf: array[1..2048] of Char;
begin
   if OpenDialog1.Execute then begin
   AssignFile(FromF, OpenDialog1.FileName);
   Reset(FromF, 1); { Record size = 1 }
   if SaveDialog1.Execute then { Display Save dialog box}
   begin
     AssignFile(ToF, SaveDialog1.FileName); { Open output file }
     Rewrite(ToF, 1); { Record size = 1 }
     Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
+ ' bytes...');
     repeat
       BlockRead(FromF, Buf, SizeOf(Buf), NumRead);

       BlockWrite(ToF, Buf, NumRead, NumWritten);
    until (NumRead = 0) or (NumWritten <> NumRead);
    CloseFile(FromF);
    CloseFile(ToF);
  end;
end;
end;

[此贴子已经被作者于2016-3-9 16:50编辑过]