一个简单的数制转换问题。(0分)

如何让输入EDIT中的数默认为十六进制的数的。
例如：
S：=‘12345678’；
用COPY函数分别取出12，34，56，78，然后12+34+56 +78=十六进制数（114），如何实现的。
但不是将12、34、56、78，分别转换为十进制数后相加然后转换为十六进制的。

procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
iSum, iNum : integer;
begin
s:= edit1.Text;
iSum:= 0;
while s<>''do
begin
iNum := StrToInt('$'+copy(s, 1, 2));
iSum:= iSum+ iNum;
s:= copy(s, 3, length(s)-2);
end;
edit2.Text := inttohex(iSum, 4);
end;

接受答案了.