unit uinline4a; interface type aptrtype = pointer; implementation end.