读教文件的读取，请各位指教！ (100分)

我想将一个MID文件以下面这种方式读出来，就是将图中见到的16进制数据以一个字符串读出来！谢谢！
http://skybird.9s9s.com/bbs/upload/sf_2003730111625.gif

用 TFileStream 自己读出来，再转化

未优化过的代码：

var
f: Integer;
s, s1: string;
begin
// 读取
f := fileopen(你的文件名, fmOpenRead or fmShareDenyNone);
setlength(s, fileseek(f, 0, 2));
fileseek(f, 0, 0);
fileread(f, s[1], length(s));
fileclose(f);
// 读取结束
//转换
s1 := '';
for f := 1 to length(s) do
s1 := s1 + inttohex(byte(s[f]), 2)+' ';
// 转换结束， 结果在s1串中
....
end;

THX!

THX