for i:=0 to LineCount - 1 do begin //Выгрузка очередной строки ProgressBar1.Position:=Round(i/LineCount); end;