progress bat & цикл

[CraftR14]

var
  s,k:string;
    j:Integer;
    X:Integer;

begin
  for  i:=StrToInt(Form1.Edit1.Text) to StrToInt(Form1.Edit3.Text) do
begin
  Application.ProcessMessages;
s:=Form1.IdHTTP1.Get('http://google.ru/'+IntToStr(i));


//if s='' then ShowMessage('Ваааа *****');

if s='' then Form1.Memo1.Lines.Add('Парсим ') else
begin
Form1.ListBox1.Items.Add('ID:['+IntToStr(i)+']  '+s);
end;
Form1.Edit4.Text:=IntToStr(i);
Form1.StatusBar1.Panels[0].Text:=''+IntTostr(i);
if Form1.CheckBox1.Checked=True then Break;
if i=StrToInt(Form1.Edit2.Text) then
Form1.Button1.Enabled:=True;


   end;
   end;

Как вставить в цикл Прогресс Бар?

в едит1.техт стоит цифра > 87561589 а в едит2.техт >edit1.txt....

заранее спасибо

[ZuBy]

 progressbar.min := StrToInt(Form1.Edit1.Text);
 progressbar.max := StrToInt(Form1.Edit3.Text);

 for  i:=StrToInt(Form1.Edit1.Text) to StrToInt(Form1.Edit3.Text) do
 begin
  Application.ProcessMessages;
  progressbar.position := i;

как то так