These are the example programs that appear in the FPC documentation.
 
Units guide, chapter on OBJECTS unit :

ex1.pp contains an example for the TRect object.
ex2.pp contains an example for the TDosStream object.
