如何把16进制格式化到字符串啊

怎么把16进制格式化到字符串啊？
一个TIdBytes 中。。。

buf[0] = $2D
buf[1] = $EA
buf[3] = $98
Buf[4] = $03

变成 "2DEA9803"这样的字符串？!

[解决办法]
S := '';
for i:=0 to 3 do 
S := S + IntToHex(Buf[0] , 2);

ShowMessage(S);
[解决办法]
更正一下:
S := '';
for i:=0 to 3 do
S := S + IntToHex(Buf[i] , 2);

ShowMessage(S);