如何才能将内存中byte数组读取到十六进制文本

怎么才能将内存中byte数组读取到十六进制文本
已经知道了某个byte数组的内存地址,怎么才能读出像
4D   5A   90   00   03   00   00   00   04   00这种类型的文本呢?

------解决方案--------------------
for i := 0 to Length(buffer) - 1 do
s := s + IntToHex(buffer[i], 2) + ' ';

------解决方案--------------------
var
i:integer;
str:string;
buff:array of byte;

str:= ' ';
for i:=low(buff) to high(buff) do
str:=str+inttohex(buff[i],2);
showmessage(str);