[Помогите!] Парсер

[LodeRun]

var
  i: integer;
  response: string;

procedure TMyThread.Execute;
begin
 for i:=1 to 10 do
  response:=Form2.IdHTTP1.Get('http://ссылка/'+inttostr(i));
if Pos('слово', response) <> 0 then
  begin
   Synchronize(memEnd);
  end else
end;

procedure TMyThread.memEnd;
begin
 Form2.Memo1.Lines.Add('http://ссылка/'+inttostr(i));
end;

Надо пройтись по десяти страницам, на какой странице будет "слово" добавить в мемо ссылку этой страницы. Нечего в мемо нет, на некоторых страницах присутствует "слово".

Cтраницы такие [Ссылки могут видеть только зарегистрированные пользователи. ] и тд.

[metraz]

Цитата: Сообщение от LodeRun response:=Form2.IdHTTP1.Get('http://ссылка/'+inttostr(i));

о ужас.

Цитата: Сообщение от LodeRun for i:=1 to 10 do response:=Form2.IdHTTP1.Get('http://ссылка/'+inttostr(i)); if Pos('слово', response) <> 0 then

тут ошибка. проверка условия идет только на 10 странице

[=PaLeTiZaToR=]

var
  i: integer;
  response: string;
  http:tidhttp;

procedure TMyThread.Execute;
begin
http:=tidhttp.create(self)
for i:=1 to 10 do
begin
 response:= http.Get ('http://ссылка/'+inttostr(i));
if Pos('слово', response) <> 0 then
  begin
   Synchronize(memEnd);
  end 
end
end;

procedure TMyThread.memEnd;
begin
 Form2.Memo1.Lines.Add('http://ссылка/'+inttostr(i));
end;

1) Ты из потока обращался к форме.
2) begin...end

[LodeRun]

=^PaLeTiZaToR^=, посмотрел HTTPAnalyzer, запрос только первой страницы.