Dec to hex

[Gausse]

Добрый день! Столкнулся с проблемой что не знаю как написать перевод из 10чной в 16ричную поскольку у меня числа хранятся в переменных типа comp, и с ними не получается использовать функции div и mod.
Подскажите идею пожалуйста.

Или как хотя бы из comp перенести в longword тот же) зная что число и переменно типа comp не будет превышать longword?

[ZuBy]

var
  c: comp;
  i : integer;
begin
  c := 2999;
  i := Trunc(c);
end;

comp = double

[Gausse]

Блин. транк, точно, премного благодарен)

[Пепел Феникса]

а для целых есть уже функция IntToHex