c:\progs\tp\tpc xlibunit.pas