procedure PutInfo(var S: TStream); virtual;
Diese Methode muß das Info-Feld in den Stream schreiben.
Diese Implementation geht davon aus, daß es sich tatsächlich um einen
LongInt-Wert handelt.
Sie müssen die Methode überschreiben, wenn Sie hier
einen Zeiger auf irgendeine Datenstruktur abgelegt haben.