IDHTTP.Request.Username := 'meuuser';
    IDHTTP.Request.Password := 'minhasenha';
    Try
    Try
    Json := '{ '+
          ' "email":"meuemail@gmail.com",'+
          ' "sistema":"meusistema",'+
          ' "cdemp":"codigo"'+
          ' } ';
    JsonToSend := TStringStream.Create(Json);
    sResponse := IDHTTP.Post('AQUI VAI MINHA API', JsonToSend);
    Except
    on e:Exception do
    ShowMessage(e.Message);
    End;
    Finally
   JsonToSend.Free;
   End;
   Handler.Free;