Delphi кодировка

Если выполнить на php urlencode(iconv("UTF-8","GBK",'футболка')), то результат будет:
%A7%E6%A7%E5%A7%E4%A7%D2%A7%E0%A7%DD%A7%DC%A7%D1

Нужна функция на Delphi, что бы выдавала такой же результат как и на php