delphi - Delphereum 直接购买代币 bscscan

Question

我找到了图书馆 delphereum并且我正在尝试实现它，我想直接在 bscscan 中使用SwapExactETHForTokens进行交换，但我没有找到文档或示例，我正在执行以下操作，但我收到错误“访问违规"

const
  URL = 'https://bsc-dataseed.binance.org';
var
  pvk: TPrivatekey;
  valor, min : BigInteger;
  TokenAdd : TAddress;
  unxTimeMin : Int64;
  rt2 : TRouter02;
begin
  pvk := '6c87eae6cad6c9f160878f99660ee17fb6d48b867defa67cdf733a496d4ebfaf';
  valor := web3.eth.utils.toWei('0.0003', ether);
  min := web3.eth.utils.toWei('0', ether);
  unxTimeMin := 10;
  TokenAdd := '0xbb4CdB9CBd36B01bD1cBaEBF2De08d9173bc095c, 0x7AE5709c585cCFB3e61fF312EC632C21A5F03F70';

  rt2 := web3.eth.uniswap.v2.TRouter02.Create(TWeb3.Create(URL));
  rt2.SwapExactETHForTokens(pvk, valor, min, TokenAdd, unxTimeMin,
  procedure(rcpt : ITxReceipt; err : IError)
  begin
    TThread.Synchronize(nil, procedure
    begin
      if Assigned(err) then
        MessageDlg(err.Message, TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0)
      else
       mJson.Lines.Add(rcpt.txHash);
       ShowMessage('Hash: ' + rcpt.txHash);
    end);
  end);
end;

我对必须传递的参数感到困惑，我想做与此示例中在 python中演示的相同的操作