[shtrih]

Проблему решил. Но почему-то Get(url) возвращает код 200 со второго раза.

Код:

         strweb := http.Get(url);
          if http.ResponseCode <> 200 then
          begin

            strweb := http.Get(url);
            if http.ResponseCode <> 200 then
            begin
              Result := False;
              exit;
            end
            else
              Form1.Memo1.Lines.Add('2');

Почему так?