vous pouvez faire une fonction du genre :


function charToInt(c : char) : byte;
begin
charToInt := ord(c)-ord('0');
end;

Ce code est valable pour c>='0' && c<='9'