Vk отправка сообщений в группы

[Mrsqler]

Нужно чтобы какое-то сообщение отправлялось по диапазону групп
допустим начальная группа 1,а конечная 10.В этом интервале сообщения должны отправиться на стену.

Авторизация проходит без проблем,сама отправка на стену тоже идет нормально,а вот с интервалом уже проблемы

var
s,hash,ConnectToGroup:string;
GroupNumber1,toGroupNumber1:integer;
  begin
    GroupNumber1:=StrToInt(GroupNumber.Text);//начальное ID гуппы
    toGroupNumber1:=StrToInt(toGroupNumber.Text);//конечное ID гуппы    
   while GroupNumber1 < toGroupNumber1 do
    begin
    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)));
     messagebox(0,'Сообщение успешно отправлено на стену!','Vk_Spamer',MB_OK or MB_ICONINFORMATION);
     GroupNumber1:=GroupNumber1+1;
     end
      else
      begin
      showmessage('Err!');
      GroupNumber1:=GroupNumber1+1;
       end;

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

Сообщение в первую группу отправляется,а вот в конечную не хочет.Всего их 4,писать я могу только в самой первой по счету,и в самой конечной.В первую отсылается,а в последнюю нет.
Писать я в ней могу.В чем может быть проблемы?Хеш не правильно парсится?Или что высчитываю не так?

[Mrsqler]

Чееееерт)Сори за тупую тему,всё работает и отправляется,надо было просто
вместо GroupNumber1 < toGroupNumber1 поставить GroupNumber1 <= toGroupNumber1

Теперь всё отправляется)