type TMyClass = class mp : (one, two, three); function myFunc(dt:TDateTime; m:mp = one); end;
type TMyClass = class public type TMp = (one, two, three); public function myFunc(dt:TDateTime; m: TMp = one): Boolean; end;