procedure GetInfo(var S: TStream); virtual;
Diese Methode muß das Info-Feld aus dem Stream lesen.
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.