unit tunit4; interface uses tunit3; type tr = tunit3.tr; implementation end.