求助: DELPHI 中十六进制转ASCII方法

我现在程序需要一个求和函数,用其对应的ASCII相加

a1:=edit4.text;
a2:=inttohex(strtoint(edit4.text)*100,4) ;
s:='00EE1'+a2;
temp1:=tempsum(s);
if length(temp1)=3 then
writestr:=s+copy(temp1,2,2)

mscommain.Output:=writestr;

写入串口两个数据如何赋值,比如时间 速度等.