[jallvar]

http://i.imgur.com/ZidP1AC.png

Код:

begin
  HTTP:=TIdHTTP.Create(nil); 
  with HTTP do begin
    AllowCookies:=true; 
    HandleRedirects:=false; 
    ReadTimeout:=10000; 
    ProxyParams.ProxyServer:=proxy; 
    ProxyParams.ProxyPort:=StrToInt(pport); 

  end;

  //формируем параметры для POST запроса
  Send:=TStringList.Create;
  Send.Add('log='+login);
  Send.Add('pwd='+passw);
  Send.Add('testcookie=1');
  Send.Add('redirect_to='+url.Text+'/wp-admin/');
  Send.Add('wp-submit=Войти');
  try 
    HTTP.Request.Referer:=url.Text+'/wp-login.php'; /
    pg:=HTTP.Post(url.Text+'/wp-login.php', send);
    HTML:=HTTP.Get(url.Text+'/wp-admin/');
    if(pos('wp-admin/post-new.php', HTML) <> 0) then
    result:=1
    else result:=2;
  except
    result:=0;
  end;
  LogMemo.Lines.Add(pg);

  Send.Free; 
  HTTP.Free; 
end;