| 202 | 
   | 
   Stream_Names := TMemoryStream.Create; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 203 | 
   | 
   Stream_Dat   := TFileStream.Create(Target, fmCreate); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 204 | 
   | 
   Stream_Raw   := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.raw'), fmCreate); | 
 
 
 
 
 
 
 
 
 | 205 | 
 + | 
   Stream_Raw.Write(EmptyBytes[0], 32); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 206 | 
   | 
   if Connection.DataOS in [DOS_WINDEMO, DOS_MAC, DOS_MACBETA] then | 
 
 
 
 
 
 
 
 
 | 207 | 
 + | 
   begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 208 | 
   | 
     Stream_Sep := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.sep'), fmCreate); | 
 
 
 
 
 
 
 
 
 | 209 | 
 + | 
     Stream_Sep.Write(EmptyBytes[0], 32); | 
 
 
 
 
 
 
 
 
 | 210 | 
 + | 
   end; | 
 
 
 
 
 
 
 
 
 | 211 | 
 + | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 212 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 213 | 
   | 
   DoStep('Creating header'); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 214 | 
   | 
   progress.Position      := 0; |