До моих добавлений работала нормально,сейчас зацикливание идет.
Я обратно все исправил,но зацикливаться продолжает.
Вот кусок кода.

Открыть спойлер

Закрыть спойлер

procedure TForm1.Button1Click(Sender: TObject);
  var list:Tstringlist;
  s,s1,s2:string;
  P1,P2,d:integer;
  info:array[0..9] of string;
begin
list:=TStringList.Create;
list.Add('n=Мой ник');
list.Add('p=Мой_пароль');
idHTTP1.Post('http://imperal.ru/login.php',list) ;
idHTTP1.Disconnect;

  for d:=1 to 5 do
begin


Repeat
  s:='http://imperal.ru/users/profil...='+inttostr(d);
  idHTTP1.Disconnect;
info[d]:=IdHTTP1.Get(s);
s1:= '</div><div><span class="gray">';
s2:='</span></div><div class="phdr">';
P1:=PosEx(s1, info[d], 1);
P2:=PosEx(s2, info[d], 1);
Memo1.Lines.Add(Copy(info[d],P1,P2-P1));
info[d]:=copy(info[d],P2,length(info[d])-P2);

Until (pos('</div><div><span class="gray">', info[d])=0);
end;
end;
end.

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

Народ, киньте кую нить книгу/справочник по bаss.dll

Anubis_ (30.06.2012/19:50)
Народ, киньте кую нить книгу/справочник по bаss.dllbass.dll - статья для ознакомления.

Ксакеп, Пасиб, интересная статья... А вот реальных русских справок чет я не нашел в гугле. Вчера пол дня шарил

Anubis_, их куча.

TAPAHbl4, Вы про какой интерфейс? Может, я смогу хэлпнуть?

Serg, Ага, а земля плоская и стоит на черепахах. Ну кинь ссылку, если не трудно

Дайте ссылку на последнюю версию+кейген.

boNNdaR, гугле,ищи "Делфи скачать последнюю версию через торрент + кейген"