ENS reverse lookup

Unit2.pas

TAddress.Create('0xa0400ba66b4fe0b13bb909abfd377596c02b6733').ToString(
  TWeb3.Create(Ethereum.SetRPC('https://mainnet.infura.io/v3/your-project-id')),
  procedure(str: string; err: IError)
  begin
    TThread.Synchronize(nil, procedure
    begin
      if Assigned(err) then
        MessageDlg(err.Message, TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0)
      else
        ShowMessage(str);
    end);
  end
);