delphi 流文件读取bmp后保存为txt，出现乱码有关问题

delphi 流文件读取bmp后保存为txt，出现乱码问题
ms:TMemoryStream;
bgr      : array of byte;

ms:=TMemoryStream.Create;
ms.LoadFromFile('h:\delphi\Image\1.bmp');
ms.Position:=0;
setLength(bgr, ms.size);
ms.ReadBuffer(bgr[0], ms.size); 

ms.SaveToFile('h:\delphi\Image\bmp1.bmp'); //ok

//若保存为txt后缀名则是乱码，用winhex看也不是预期的数据
ms.SaveToFile('h:\delphi\Image\bmp1.txt')//乱码


//若采用
fs : Tfilestream;
fs:=Tfilestream.Create('bmp1.txt',fmcreate);
fs.write(...) //乱码

我本意是将bmp的数据提取保存为txt
------解决方案--------------------

------解决方案--------------------
BMP文件用文本方式打开本来就是乱码。
------解决方案--------------------

------解决方案--------------------
服了你了    s