Saving Types

When you load your doors, have you create them with new??

Repeat
D.Door=New Door
D\Door=ReadInt(Loadstate)
Until Eof(Loadstate)