Цикл. Не отправляются повторно запросы.

[Зод]

Создаю цикл от 1 до 2.
Идет первый: все проходит нормально, все коректно отправляется.
Второй: процедура запускается: данные не отправляются, только функция отправки работает(она на инди а не на синапсе) то есть часть кода работает получается остальное пропускается. С чем могут быть проблемы? Это может быть из-за того что переменные типа string я не уничтожаю? Хотя даже если они и не пустые отправка то должна работать...Вроде все как всегда делаю.

_______________________

Пока писал ответ понял))
Но все же обьясните почему так:
Цикл я уже описал. Если стоит выбор HTTP прокси у синапса то цикл себя ведет страно (соксов ни каких и нет, но выбор стоит) а если убрать HTTP на "не выбрано" то все нормально работает?

[sxcine]

может из-за того, что сервер уже отправляет кукисы, а потом вы их не чистите на втором запросе?

[Зод]

Я на синапсе. А там если не указал что нужно отправить он и не отправит. Вообщем точно не из-за этого.
Плюс еще интересную особенность нашел. Первый цикл нормально работает, второй описал, третий снова нормально. Прям четный не четный) Н укод проверенный я его часто в других программах использовал.
Буду искать в чем ошибся...где то в коде кажись не то

[sxcine]

сделайте тогда процедуру отправки, а потом уже в цикле вызывайте её

[Зод]

procedure TForm1.Button1Click(Sender: TObject);
var
  http: THTTPSend;
  s,p,i : string;
  l : integer;
begin
For l:=1 to StrToInt(Edit1.Text) do
Begin
z:=l;
a:=Memo5.Lines[l];
a1:=Copy(s,0,Pos(':',s)-1);
a2:=Copy(s,Pos(':',s)+1,9);
  http := THTTPSend.Create;
  try
   //настраиваем параметры прокси
   case cbTypeProxy.ItemIndex of
     0:begin
         HTTP.ProxyHost:=a1;
         HTTP.ProxyPort:=a2;
       end;
     1:HTTP.Sock.SocksType:=ST_Socks4;
     2:HTTP.Sock.SocksType:=ST_Socks5;
   end;
   if cbTypeProxy.ItemIndex>0 then
     begin
       HTTP.Sock.SocksIP:=a1;
       HTTP.Sock.SocksPort:=a2;
       HTTP.Sock.SocksResolver:=false;
     end;
  http.Document.Clear;
  http.Headers.Clear;
  HTTP.MimeType := 'application/x-www-form-urlencoded';
  HTTP.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.51';
  HTTP.Protocol:= '1.1';
  HTTP.Headers.Add('Accept-Encoding: gzip,deflate');
  HTTP.Headers.Add('Accept-Language: ru-RU,ru;q=0.9,en;q=0.8');
  HTTP.Headers.Add('Expect: 100-continue');
  HTTP.HTTPMethod('GET', 'URL');
  HTTP.Cookies.SaveToFile('Cook.txt');
  Memo1.Lines.LoadFromStream(HTTP.Document);
...
Парсим
... 
  B1(self);
  finally
  HTTP.Free;
end;
end;
end;

procedure TForm1.B1(Sender: TObject);
var
  http: THTTPSend;
begin
  http := THTTPSend.Create;
  try
   //настраиваем параметры прокси
   case cbTypeProxy.ItemIndex of
     0:begin
         HTTP.ProxyHost:=a1;
         HTTP.ProxyPort:=a2;
       end;
     1:HTTP.Sock.SocksType:=ST_Socks4;
     2:HTTP.Sock.SocksType:=ST_Socks5;
   end;
   if cbTypeProxy.ItemIndex>0 then
     begin
       HTTP.Sock.SocksIP:=a1;
       HTTP.Sock.SocksPort:=a2;
       HTTP.Sock.SocksResolver:=false;
     end;
  http.Document.Clear;
  http.Headers.Clear;
  HTTP.MimeType := 'application/x-www-form-urlencoded';
  HTTP.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.51';
  HTTP.Protocol:= '1.1';
  HTTP.Headers.Add('Accept-Encoding: gzip,deflate');
  HTTP.Headers.Add('Accept-Language: ru-RU,ru;q=0.9,en;q=0.8');
  HTTP.Headers.Add('Expect: 100-continue');
  HTTP.Cookies.LoadFromFile('Cook.txt');
  HTTP.HTTPMethod('GET', 'URL' + Результат парсинга);
  HTTP.Document.SaveToFile(IntToStr(z) + '.jpg');
  Edit5.Text:=recognize(IntToStr(z) + '.jpg',Edit6.Text,false,false,false,0,0);
  B2(self);
  finally
  HTTP.Free;
end;
end;

procedure TForm1.B2(Sender: TObject);
var
  http: THTTPSend;
  params: string;
begin
  http := THTTPSend.Create;
   try
   //настраиваем параметры прокси
   case cbTypeProxy.ItemIndex of
     0:begin
         HTTP.ProxyHost:=a1;
         HTTP.ProxyPort:=a2;
       end;
     1:HTTP.Sock.SocksType:=ST_Socks4;
     2:HTTP.Sock.SocksType:=ST_Socks5;
   end;
   if cbTypeProxy.ItemIndex>0 then
     begin
       HTTP.Sock.SocksIP:=a1;
       HTTP.Sock.SocksPort:=a2;
       HTTP.Sock.SocksResolver:=false;
     end;
  http.Document.Clear;
  http.Headers.Clear;
  params := 'login=' + Memo6.Lines[z] + '&name=' + Memo7.Lines[z] + '&email=' + Memo8.Lines[z] 
+ '&password=' + Memo9.Lines[z] + '&passwordtoo=' + Memo9.Lines[z] +  '&keystring=' + Edit5.Text;
  HTTP.MimeType := 'application/x-www-form-urlencoded';
  HTTP.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.51';
  HTTP.Protocol:= '1.1';
  HTTP.Headers.Add('Accept-Encoding: gzip,deflate');
  HTTP.Headers.Add('Accept-Language: ru-RU,ru;q=0.9,en;q=0.8');
  HTTP.Headers.Add('Expect: 100-continue');
  HTTP.Document.Write(Pointer(Params)^, Length(Params));
  HTTP.Cookies.LoadFromFile('Cook.txt');
  HTTP.HTTPMethod('POST', 'URL');
  if HTTP.ResultCode = 302 then
  begin
  Memo2.Lines.Add(Memo6.Lines[z] + ':' + Memo9.Lines[z]);
  Memo10.Lines.Add(Memo6.Lines[z] + ':' + Memo9.Lines[z]);
  HTTP.Cookies.SaveToFile('Cook.txt');
  end;
  finally
  HTTP.Free;
end;
end;

Это регистратор, код этот отработан действительно много раз, изменяю всегда только мелочи типа URL и т.д. суть не в этом.
Задаю например циклов 10. Здесь начинается самое интересное, Первый цикл проходит нормально, второй только функция recognize, и вот так по очередности. Почему так происходит для меня загадка....
Далее в конце есть добавление в Memo2 и Memo6 данных, здесь еще лучше, добавляется только 5 штук и не одной больше строк. То есть ставим 12 циклов, из них удачно выполнятся (50%) 6 а строк добавится 5.
Где я это прописал? Глобальные переменные в порядке, все как всегда.
Смеятся можно долго над такой чудо программой и все же.