把edit1.text中的内容转化成16进制 为什末不行！！！

[okfly]

把edit1.text中的内容转化成16进制 为什末不行！！！
//提示no overloaded ....cannt argument
/procedure TForm1.Button1Click(Sender: TObject);

var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],2) + ' ';
except
Beep;
end;
end;
end;

[drizzt123]

应该这样

var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption
+ IntToHex(Integer(Edit1.Text[i]),2)
+ ' ';
except
Beep;
end;
end;
end;

[symonds]

同意楼上的说法！必须要转换edit1.text，因为inttohex只转换整形书