可以使用一个Timer组件和一个全局变量（与进度条的Position相关联），在Timer的OnTimer中处理
另外在线程中访问全局变量的时候不能得到它的值，需要写专门的函数读取
例如我以前用过的方法
function TFrm_LoadText.GetLinesPosition: Cardinal;
begin
Result:=LinesPosition;
end;
procedure TFrm_LoadText.SetLinesPosition(I : Integer);
begin
if I=0 then
LinesPosition:=0
else
LinesPosition:=LinesPosition+I;
end;
在线程中使用这两个方法进行对全局变量LinesPosition的控制
