[GrabbeR]

Спасибо, сделал так:

Код:

xIn:='489045487'; xOut:='';
for i:=1 to Length(xIn) do xOut:=xOut+Format('%x,',[Ord(xIn[i])]);