Процедуры научился подключать, разобрался, но функции...

мм... учитывая данный пример мне необходимо отправлять данные в переменную "s" два значения (0A) которые будет переведены в функцию и возращены в виде символа в "resultat"
s:=edit1.text;
memo1.text:=HexToStr;
Под вид такого?