Hello World Smart Contract

Unit1.pas

  web3.eth.call(TWeb3.Create(
    Sepolia.SetRPC(                                   // Sepolia test net
    'https://sepolia.infura.io/v3/your-project-id')), // RPC access to Sepolia
    '0x643C9Db08aBE4D95e4F2Afc733F78b601b84007A',     // smart contract address
    'myFirstHelloWorld()', [], procedure(tup: TTuple; err: IError)
  begin
    TThread.Synchronize(nil, procedure
    begin
      if Assigned(err) then
        MessageDlg(err.Message, TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0)
      else
        ShowMessage(tup.ToString);
    end);
  end);