Здравствуйте! Мне нужно чтобы программа перебирала числа в адресной строке(например: ww.lm/n125412 от 000000 до 999999) и одновременно качала код страницы,вот уже сколько бьюсь, а сделать не могу(что-то я делаю неправильно, я школьник и delphi почти не знаю,знаю только паскаль), заранее спасибо.

unit Unit12;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ComCtrls,progressbar1, edit1, label1;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var LoadStream: TMemoryStream; i:integer; str:string;
begin
progressbar1.Max:=strtoint(edit1.Te xt);
progressbar1.Min:=strtoint(edit2.Te xt);
assignfile(f,'c:\st.txt');
rewrite(f);
closefile(f);

for i := strtoint(edit2.Text) to strtoint(edit1.Text) do
begin
rewrite(f);
closefile(f);
str:='http://www.lm/n'+inttostr(i);;
LoadStream := TMemoryStream.Create;
idHTTP1.Get(str, LoadStream);
LoadStream.SaveToFile('c:\st.txt');
LoadStream.Free;
form1.Refresh;
progressbar1.Position:=i;
label1.Caption:=inttostr(i)+'/'+edit1.Text;
progressbar1.Repaint;
end;
end;
end.