Function Tbanking.Post_1(sign:string;dat_start:string;dat_end:string;card:string):string;
 var //отправляем запрос в ПРИВАТ на частную карту
  str:TStringList;
  url, result1: string;
 begin
   url:='https://api.asdf.com/api'; //адрес сайта
   str:=TStringList.Create(); //создадим переменную str

   str.Add('<?xml version="1.0" encoding="UTF-8"?>');
   str.Add('<request version="1.0">');
   str.Add('<id>111111</id>'); //id
    str.Add('<data>');
   str.Add('<oper>cmt</oper>');
   str.Add('<wait>0</wait>');
   str.Add('<test>0</test>');
   str.Add('<payment id="">'); //???
   str.Add('<prop name="sd" value="'+dat_start+'" />'); //data start
   str.Add('<prop name="ed" value="'+dat_end+'" />'); //data end
   str.Add('<prop name="card" value="'+card+'" />'); //card
   str.Add('</data>');
   str.Add('</request>');

   Idhttp1.HTTPOptions := [hoKeepOrigProtocol,hoForceEncodeParams,hoNoProtocolErrorException,hoWantProtocolErrorContent];
   result:= IdHTTP1.Post(url,str); // Отправим запрос
   str.Free;
 end;