Converter de Hexadecimal para Inteiro

var
  I: integer;
begin
  I := StrToInt('$' + Edit1.Text);
  {...}
end;