这样的情况，我该怎么处理！！！急！！！(50分)

抓包发现发送过来的数据是：4e2d56fd4eba6c115171548c56fd
我现在需要显示出来的数据也是这样的，我该怎么处理（主要是接收类型的定义和处理上）
急！！！！！！
各位帮帮忙，分不够再给！！！！！

data: array[0..1023] of byte;

procedure FastHexWrite(const b:byte;PDestChar);
const
Digits : array [0..15] of char = '0123456789ABCDEF';
begin
PDest[0]:=Digits[b shr 4];
PDest[1]:=Digits[b and $F];
end;

procedure Convert;
var
i: integer;
s: string;
begin
SetLength(s,sizeof(data)*2);
for i := 0 to 1024 do FastHexWrite(b,@s[i*2-1]);
ShowMessage(s);
end;