Code function HexToInt(Str : string): integer; var i, r : integer; begin val('$'+Trim(Str),r, i); if i<>0 then HexToInt := 0 {была ошибка в написании числа} else HexToInt := r; end;