procedure PrintOut(aValue: string); virtual;

This is PrintOut, a member of class TPrintObject.