type TFunc = procedure;

type TClass = class(TFunc)
end;

begin

end.