help

[Zerokull222]

 if HTTP.ResultCode<>302 then rez:=-1 else rez:=1; then
     begin
     rez:=TStringList.Create;
     rez.LoadFromStream(HTTP.Document);
     end else
         begin
           Accounts.Add(Accounts[i]);
         end;
     except

     end;
     HTTP.Free;
     Data.Free;
     Synchronize(Sync);

   end;

end;

dec(Thread);
if Thread=0 then
ShowMessage('Закончили! ;)');

[Erstown]

if (HTTP.ResultCode<>302) then 
rez:=-1 
else 
rez:=1;

[Zerokull222]

не помогает

[Gum4ik]

Цитата: Сообщение от Zerokull222 if HTTP.ResultCode<>302 then rez:=-1 else rez:=1; then begin rez:=TStringList.Create; rez.LoadFromStream(HTTP.Document); end else begin Accounts.Add(Accounts[i]); end; except end; HTTP.Free; Data.Free; Synchronize(Sync); end; end; dec(Thread); if Thread=0 then ShowMessage('Закончили! ');

Что за хрень ?)
Вот твое условие

Цитата: if HTTP.ResultCode<>302 then rez:=-1 else rez:=1;

зачем ты дальше пишешь then begin .быдло код. else .быдло код. end; ??
По русски говоря вот что получается

Цитата: Если хттп.результативныйкод больше или меньше 302 тогда присваиваем переменной рез -1 иначе 1 ставим знак ; чтобы закончить строку и после него ты зачем то опять пишешь, тогда , начало кода...

И кто после except пишет end; ?

[metraz]

автор скинул код не сказав нам даже что за ошибка. Дожили.

[Gum4ik]

Цитата: Сообщение от metraz автор скинул код не сказав нам даже что за ошибка. Дожили.

Да тут же одни экстрасексы) сами должны знать...