procedure TForm1.MovePositionBtnClick(Sender: TObject)；
var
  i: Integer；
begin
  RenYuan.Open；
  //打開人員表RenYuan
  with MovePosProgressBar do
  //使用TprogressBar組件顯示移動的進程
  begin
    Min := 0；
    //設置TprogressBar組件Min和Max屬性，以確定進程的范圍
    Max := RenYuan.RecordCount；
    //獲取人員表RenYuan的記錄總數，以作為循環控制變量的終值
    RenYuan.First；
    //將記錄指針一移到第一個記錄的位置上
    for i := Min to Max do
    //本循環移動表的指針，從開始一直移到到最后
    begin
      Position := i；
      //設置TprogressBar組件的Position屬性，確定進程條的顯示位置
      RenYuan.Next；
      //將表的記錄指針移到下一個記錄的位置上
    End；
  End；
End；