Виснет программа

[Mrsqler]

Смысл в том,чтобы отправлялись сообщения на стену по заданному диапазону.Например: начальный id группы 10,а конечный id 20 ,в группы в этом интервале будут отправлены сообщения.Все выполняется через мобильную версию.

var
s,hash,ConnectToGroup:string;
GroupNumber1,toGroupNumber1:integer;
  begin
    GroupNumber1:=StrToInt(GroupNumber.Text);//начальное ID гуппы
    toGroupNumber1:=StrToInt(toGroupNumber.Text);//конечное ID гуппы
     form1.Memo1.Clear;
   while GroupNumber1 <= toGroupNumber1 do
    begin
    if GroupNumber1 = toGroupNumber1 then
    begin
      messagebox(0,'Готово! :)','Vk_Spamer',MB_OK or MB_ICONINFORMATION);
    end
     else
    S:=form1.IdHTTP1.get('http://m.vk.com/wall-'+IntToStr(GroupNumber1) );
    hash:=Copy(S, Pos('post&hash=', S)+10, 18);
     if Pos('<a name="posts"></a>',S)<>0 then
     begin
     form1.IdHTTP1.get('http://m.vk.com/wall-'+IntToStr(GroupNumber1)+'?act=post&hash='+hash+'&message='+UrlEncode(ansitoutf8(Memo1.Text)));
     form1.Memo1.Lines.Add('Сообщение отправленно в группу'+IntToStr(GroupNumber1) );
     GroupNumber1:=GroupNumber1+1;
     end
      else
      begin
      form1.Memo1.Lines.Add('Ошибка!Невозможно отправить сообщение в группу'+IntToStr(GroupNumber1) );
      GroupNumber1:=GroupNumber1+1;
       end;

    end;
  try
  form1.IdHTTP1.Disconnect;
except
end;
end;

Сообщения отправляются,но программа виснет через некоторое время.
Интервал такой: начальное значение 19839976 ,а конечное 19839985.
Когда программа доходит до группы под номером 19839982,то она зависает и больше ничего не происходит.
С чем это может быть связано?

[Delphi_ProGer]

Если этот код в главном потоке - не странно, что виснет )
Запускайте в отдельном потоке!
Если подвисает именно на этой группе, значит какие-то проблемы там, смотрите что возвращаеться, код ошибки.

[Mrsqler]

А как запустить в отдельном потоке?)

[Stilet]

А как запустить в отдельном потоке?)

Как вариант:

while GroupNumber1 <= toGroupNumber1 do sleep(10); Application.ProcessMessages;
...

Это не доппоток, но все же.
И кинь на форму IdAtifreeze чтоб разлочивал инди.

[Delphi_ProGer]

Сообщение от Mrsqler

А как запустить в отдельном потоке?)

Tthread or через Win API

[Mrsqler]

Всё равно виснет.Он где-то 6-8 групп обрабатывает,и всё.. IdAtifreeze кинул

[Delphi_ProGer]

Говорю же, сделай в отдельном потоке, и посмотри почему там зависает, что там долго грузит.

[Mrsqler]

Сделал в отдельном потоке,когда пытаюсь запустить поток,то ничего не происходит.Что опять не так?((
Компилировал в Delphi 2010

Пока что пытаюсь реализовать только работу с группами,до ID потом сам додумаюсь думаю.

[Кольша]

Емае а!А вам не приходила в голову идея сделать проверку на то можно ли вам писать на стене группы.
собственно код:

var
s,hash,ConnectToGroup:string;
GroupNumber1,toGroupNumber1:integer;
  begin
    GroupNumber1:=StrToInt(GroupNumber.Text);//начальное ID гуппы
    toGroupNumber1:=StrToInt(toGroupNumber.Text);//конечное ID гуппы
     form1.Memo1.Clear;
   while GroupNumber1 <= toGroupNumber1 do
    begin
    if GroupNumber1 = toGroupNumber1 then
    begin
      messagebox(0,'Готово! :)','Vk_Spamer',MB_OK or MB_ICONINFORMATION);
    end
     else
    S:=form1.IdHTTP1.get('http://m.vk.com/wall-'+IntToStr(GroupNumber1) );
    hash:=Copy(S, Pos('post&hash=', S)+10, 18);
     if Pos('<input class="btn" type="submit" value="Отправить" />',S)>0 then
     begin
     form1.IdHTTP1.get('http://m.vk.com/wall-'+IntToStr(GroupNumber1)+'?act=post&hash='+hash+'&message='+UrlEncode(ansitoutf8(Memo1.Text)));
     form1.Memo1.Lines.Add('Сообщение отправленно в группу'+IntToStr(GroupNumber1) );
     GroupNumber1:=GroupNumber1+1;
     end
      else
      begin
      form1.Memo1.Lines.Add('Ошибка!Невозможно отправить сообщение в группу'+IntToStr(GroupNumber1) );
      GroupNumber1:=GroupNumber1+1;
       end;

    end;
  try
  form1.IdHTTP1.Disconnect;
except
end;
end;

[Mrsqler]

Приходила,и я её сделал)

if Pos('<a name="posts"></a>',S)<>0 then //это и есть проверка
     begin
     form1.IdHTTP1.get('http://m.vk.com/wall-'+IntToStr(GroupNumber1)+'?act=post&hash='+hash+'&message='+UrlEncode(ansitoutf8(Memo1.Text)));
     form1.Memo1.Lines.Add('Сообщение отправленно в группу'+IntToStr(GroupNumber1) );
     GroupNumber1:=GroupNumber1+1;
     end
      else
      begin
      form1.Memo1.Lines.Add('Ошибка!Невозможно отправить сообщение в группу'+IntToStr(GroupNumber1) );
      GroupNumber1:=GroupNumber1+1;
       end;

Дело в том,что я использую английскую версию VK,а также все действия происходят через мобильную версию,а не через обычную.
Когда пытаюсь начать рассылку,то появляется вот такая ошибка



Еще бывает такая