Проверка введенной строки, Шестандцатиричное ли это число или нет Опции

[Noname]

Пожалуйста, не посылайте меня в факи, поиски и пр. Уже там был - не помогло.
Если не трудно ответьте куском кода. Вопрос в следующем - как проверить, является ли введенная пользователем строка шестнадцатиричным числом?
Заранее большое спасибо за ответ.

[volvo]

{
  1
  2
}
Function isHex(s: string): Boolean;
begin
  isHex := False;
  For i := 1 to Length(s) Do
    If not (UpCase(s[i]) in ['0' .. '9', 'A' .. 'F']) Then Exit;
  isHex := True;
end;

Это безо всяких проверок на длину строки ... Функция возвращает True, если строка не содержит символов, недопустимых в 16-ричном числе...