function Yobit_api_public(AURL: String; var IsExcepted: Boolean): String;
var
  Http_req: TIdHTTP;
  AParam: TStringList;
begin
  try
    Http_req := TIdHTTP.Create(nil);
    Http_req.ReadTimeout := 7000;
    Http_req.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
    AParam := TStringList.Create;
    Http_req.AllowCookies := True;

    try
//      DataInfo.ID := 1; DataInfo.IDCommand := umcUpdateDebugMemo;
//      DataInfo.InfoString := 'Yobit_api_public(AURL: String; var IsExcepted: Boolean): String;';
//      SendMessage(Application.MainFormHandle, WM_USER + 100, 0, IntPtr(@DataInfo));
      Result := Http_req.post(AURL, AParam);
//      DataInfo.ID := 1; DataInfo.IDCommand := umcUpdateDebugMemo;
//      DataInfo.InfoString := '';
//      SendMessage(Application.MainFormHandle, WM_USER + 100, 0, IntPtr(@DataInfo));
    except
      on pe: EIdHTTPProtocolException do
      begin
        IsExcepted := True;
        Result := ' -> api error : ' + TimeToStr(Time) + ' ' + pe.Message;
      end;
      on e: Exception do
      begin
        IsExcepted := True;
        Result := ' -> api error : ' + TimeToStr(Time) + ' ' + e.Message;
      end;
    end;
  finally
    FreeAndNil(AParam);
    http_req.Free;
  end;
end;

procedure TThreadUpdaterCurrentCoinsPrice.Execute;
var IsErr: Boolean; S, T: String;
  tr: TStringList;
  DataInfo: TUpdateMessage;
  i: Integer;
begin
  try
    tr := TStringList.Create;
    tr.Text := ListCoinsPriceUpdate;
    T := '';
    for i := 0 to tr.Count-1 do T := T + ProcUnit.IfThen(LowerCase(tr[i])=LowerCase(BasePair), '', ProcUnit.IfThen(T<>'', '-', '') + LowerCase(tr[i]) + '_'+LowerCase(BasePair));
    if T='' then Exit;

    DataInfo.ID := IDTrader; DataInfo.InfoString := ''; DataInfo.Proc := '';
//    DataInfo.IDCommand := umcBeginUpdateBalance;
//    SendMessage(Application.MainFormHandle, WM_USER + 100, 0, IntPtr(@DataInfo));
    case IDTrader of
      1: //YOBIT.NET API
        begin
          IsErr := False;
          S := BotYobitUnit.Yobit_api_public('https://yobit.io/api/3/ticker/'+T+'-'+LowerCase(BasePair)+'_usd', IsErr);

          if IsErr then
          begin
            tr.Clear;
            tr.Add(S);
            ProcUnit.WriteEventToTable(IDTrader, 0, 1, tr);
            DataInfo.IDCommand := umcUpdateEvents;
            SendMessage(Application.MainFormHandle, WM_USER + 100, 0, IntPtr(@DataInfo));

            DataInfo.IDCommand := umcUpdateBalance;
            SendMessage(Application.MainFormHandle, WM_USER + 100, 0, IntPtr(@DataInfo)); //UpdateMDIBeginEventTimer
            Exit;
          end else
          begin
            S := ProcUnit.ConvertAnswerToINIText(S);
            if not BotYobitUnit.Yobit_is_success(S, T) then
            begin
              tr.Clear;
              tr.Add(T);
              ProcUnit.WriteEventToTable(IDTrader, 1, 2, tr);
              DataInfo.IDCommand := umcUpdateEvents;
              SendMessage(Application.MainFormHandle, WM_USER + 100, 0, IntPtr(@DataInfo));
              Exit;
            end else
            begin
              DataInfo.InfoString := BotYobitUnit.Yobit_Convert_CoinPrices(S);
//              SendMessage(Application.MainFormHandle, WM_USER + 201, 0, IntPtr(@DataInfo)); //UpdateMemoText
              DataInfo.IDCommand := umcWriteINICoinPrices;
              SendMessage(Application.MainFormHandle, WM_USER + 100, 0, IntPtr(@DataInfo)); //UpdateMDIWriteINIFunds
              DataInfo.IDCommand := umcUpdateBalance;
              SendMessage(Application.MainFormHandle, WM_USER + 100, 0, IntPtr(@DataInfo)); //UpdateMDIBeginEventTimer
            end;
          end;

        end;
    end;

  finally
    FreeAndNil(tr);
  end;
end;