Saving my classes into Stream

[cairnswm]

The way I do it is as follows

TMonsterRec = Record
Name, Type : Stirng;
End;

TMonster = Class
Data : TMonster;
End;

Load monsters

While not File.eof do
Begin
Monster := TMonster.Create;
Read(File,Monster.TMonster);
End;