{$STATIC ON} {$mode objfpc} unit UT; interface type UserTipe = object x: integer; end; implementation end.