function vertex_finder(func: object): integer;
правильно ли я задаю объект в качестве аргумента?
Нет, неправильно.
function vertex_finder(func: TFuncType): integer;