Эмулируйте команду "su root", чтобы исправить ошибку "Отказано в доступе"

Question

Я разрабатываю программу для Android в Delphi.

В терминале я тестировал следующие команды:

su root
echo 1 > /sys/class/port/export 
echo 1 > /sys/class/port/port1/value 

Работает без проблем.

В Delphi я создал следующий код и добавил свою программу в Android как программу root.

TFile.WriteAllText('/sys/class/port/export', '1');
TFile.WriteAllText('/sys/class/port/port1/export', '1');

После запуска я получил ошибку:

Разрешение отклонено

Как эмулировать команду su root перед вызовом WriteAllText?