procedure TForm1.Button1Click(Sender: TObject);
var stringstream: TStringStream;
var balance, xml, bb: String;
var root, lib: IXMLNode;
var sms_count, b1: Real;
var IdHTTP1: TIdHTTP;
//var i:integer;
begin

  if (edit1.text = '') OR (edit2.text = '') OR (edit3.text = '') OR (edit4.text = '') then
    begin
      showMessage('Ââåä³òü íàëàøòóâàííÿ!');
    end
    else
    begin
      phone_number := edit3.text;   // Êóäè ñëàòè
      username := edit1.text; // Ëîã³í äëÿ àâòîðèçàö³¿ ÷åðåç Àв
      password := edit2.text;  //   ïàðîëü äëÿ àâòîðèçàö³¿ ÷åðåç Àв

      stringstream:=TStringStream.Create('');
      try
        xml := '<?xml version="1.0" encoding="utf-8"?><request><operation>GETBALANCE</operation></request>';
        stringstream.WriteString(xml);
        stringstream.Position:=0;

        IdHTTP1:=TIdHTTP.Create(nil);
        IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
        IdHTTP1.Request.ContentLength:=stringstream.Size;
        IdHTTP1.Request.BasicAuthentication:= true;
        IdHTTP1.Request.UserName := username;
        IdHTTP1.Request.Password := password;

        balance:=IdHTTP1.Post(apiurl, stringstream);
        //SHowMessage(idHTTP1.Response.ResponseText);
      finally
        stringstream.Free;
        IdHTTP1.Disconnect;
      end;

      if (balance <> 'Access denied!') then
        begin
          XMLDocument2.LoadFromXML(balance); // Çàâàíòàæóºìî ôàéë ç áàëàíñîì.
          XMLDocument2.Active := true;
          root := XMLDocument2.DocumentElement;
          bb := trim(root.ChildNodes['balance'].Text);
          b1 := StrToFloat_UK(bb);
          sms_count:= b1 / 0.16;
          Label1.Caption := Label1.Caption + bb + ' ãðí ' + FloatToStr(sms_count);
        end
        else
        begin
          showMessage('Ëîã³í àáî ïàðîëü ââåäåíî íå â³ðíî!');
        end;
    end;
end;