Как перевести ASCII, в HEX диапазон.

Как перевести CHAR из текстового файла в число. Например CHAR 603 в ЧИСЛО 603.

1)

function dec2hex(value: dword): string; 
const hexdigit = '0123456789ABCDEF'; 
begin 
  while value <> 0 do begin 
    dec2hex := hexdigit[succ(value and $F)]; 
    value := value shr 4; 
  end; 
  if dec2hex = '' then dec2hex := '0';
end;

(цитата из DRKB)

2) либо читать сразу, как число; либо StrToInt() ...