[Kaktuz]

Спасибо. Немного понятнее. Сейчас будем пробовать. Надо же и обратный путь проложить.
Нашел вот такой пример

Код:

function HexToInt(s: string): integer;
label
  gte;
var
  tempt: string;
  i: integer;
begin
  tempt := '';
  if s = '' then
  begin
    HexToInt := 0;
    goto gte;
  end;
  for i := 1 to Length(s) do
  begin
    tempt := tempt + IntToHex(Ord(s[i]), 2);
  end;
  HexToInt := StrToInt('$' + tempt);
  gte:
end;

Но что-то как-то не совсем понятно как запустить, да и комментарии тоже не утешительные

это функция - маразматичный маразм, просто слов нет.