二进制的DFM文件如何用代码将其转换成纯文本文件？

如下面的二进制字符如何转换成最下面的纯文本？

TFORM1 0?  TPF0TForm1Form1Left?TopkWidth?Height?CaptionForm1Color  clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Height?Font.Name
MS Sans Serif
Font.Style OldCreateOrder
PixelsPerInch`
TextHeight
TDBGridDBGrid1LeftDTop?Width@HeightxTabOrder TitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.Height?TitleFont.Name
MS Sans SerifTitleFont.Style    TwwDBGrid  [email protected];;
TitleColor  clBtnFace  FixedCols ShowHorzScrollBar  TabOrderTitleAlignment
taLeftJustifyTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.Height?TitleFont.Name
MS Sans SerifTitleFont.Style 
TitleLinesTitleButtons   
object Form1: TForm1
 Left = 192
 Top = 107
 Width = 696
 Height = 480
 Caption = 'Form1'
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'MS Sans Serif'
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object DBGrid1: TDBGrid
   Left = 68
   Top = 252
   Width = 320
   Height = 120
   TabOrder = 0
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -11
   TitleFont.Name = 'MS Sans Serif'
   TitleFont.Style = []
 end
 object wwDBGrid1: TwwDBGrid
   Left = 236
   Top = 104
   Width = 320
   Height = 120
   IniAttributes.Delimiter = ';;'
   TitleColor = clBtnFace
   FixedCols = 0
   ShowHorzScrollBar = True
   TabOrder = 1
   TitleAlignment = taLeftJustify
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -11
   TitleFont.Name = 'MS Sans Serif'
   TitleFont.Style = []
   TitleLines = 1
   TitleButtons = False
 end
end