delphi数据的转换解决方法

delphi数据的转换
请问如何把一个十进制如123456789
转换成十六进制75BCD15(inttohex可以实现,但是字符串,有没有不是字符串的呢?)
还有转换后我想把他拆成     07     5B     CD     15     (十六进制)
的形式按序存入一个数组中,如何实现呢?


------解决方案--------------------
给你写一段代码，不知对你有没有用（因为我始终没有看出你的最终需求）

const
I : LongInt = $12345678;//这里是一个LongInt数，是4字节的
var
J : integer;
A : array[0..SizeOf(I)-1] of Byte;
P : ^Byte;
begin
P := @I;
for J := Low(A) to High(A) do
begin
A[High(A)-J] := P^;
Inc(P);
end;
for J := Low(A) to High(A) do
showmessage(format( '%x ',[A[J]]));//显示一下数组中的每个元素看一下
end;