procedure Store(var S: TStream);
Schreibt das Objekt mittels der geerbten Store-Methode in den Stream. Dann wird PutInfo aufgerufen, um das Info-Feld abzuspeichern.