[prestuplenie]

Вот что у меня получилось:

Код:

var
  stringlist: TStringList;
begin
  stringlist:=TStringList.Create;
  try

stringlist.Add('vb_login_username=bmb');
    stringlist.Add('vb_login_password=f8b932c70d0b2e6bf071729a4fa68dfc');
    stringlist.Add('cookieuser=1');
    stringlist.Add('s=');
    stringlist.Add('securitytoken=guest');
    stringlist.Add('do=login');
    stringlist.Add('vb_login_md5password=');
    stringlist.Add('vb_login_md5password_utf=');
        Memo1.Text:=IdHTTP1.Post('http://xxx.xxx.xxx.xxx/api/functions.php?do=login', stringlist);
    Memo2.Text:=IdHTTP1.Response.RawHeaders.Text;

  finally
    stringlist.Free;
  end;

Админ: Напоминаю по теги! При рецедиве последуют санкции.

К сожалению, что-то опять не-то (((