[MAD_EVAL]

Вот Вам мой Int to Hex, у которого на выходе не строка

Код:

function convert(input : integer) : integer;
  var
  temp0, temp1 : integer;
begin
    temp1 := input shr 4;
        if temp1 > 9 then result := 255; // error
    temp0 := input and $0F;
        if temp0 > 9 then result := 255; // error
    result := 10 * temp1 + temp0;
end;