Transferring ERC-20 tokens with Delphi

Unit1.pas

const ERC20 = TERC20.Create(TWeb3.Create(
  Goerli.SetRPC('https://goerli.infura.io/v3/your-project-id')), // Goerli testnet
  '0x45843aF56Aa1057eD1730cA5Ba3F709833900E77');                 // TST smart contract address
try
  ERC20.Transfer(
    TPrivateKey('24622d680bb9d6d80c4d3fb4b4818e738de64b521948b1b1c85616eeeda54ee1'), // from private key
    '0xaDDcedc01C1070bCE0aF7eb853845e7811EB649C',                                    // to public key
    1000000000000000,                                                                // 0.001 TST
    procedure(hash: TTxHash; err: IError)
    begin
      TThread.Synchronize(nil, procedure
      begin
        if Assigned(err) then
          MessageDlg(err.Message, TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0)
        else
          MessageDlg(string(hash), TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOK], 0);
      end);
    end);
finally
  ERC20.Free;
end;