162 {$IOCHECKS OFF}

   162 {$IOCHECKS OFF}

   163 Assign(f, image^.filename);

   163 Assign(f, image^.filename);

   164 Rewrite(f, 1);

   164 Rewrite(f, 1);

   165 if IOResult = 0 then

   165 if IOResult = 0 then

   166     begin

   166     begin

   167     BlockWrite(f, head, sizeof(head), writeResult);

   168     BlockWrite(f, head, sizeof(head), writeResult);

   168     BlockWrite(f, image^.buffer^, size, writeResult);

   169     BlockWrite(f, image^.buffer^, size, writeResult);

   169     Close(f);

   170     Close(f);

   170     end

   171     end

   171 else

   172 else