[lmikle]

А через классы не проще сделать?
Хотя и через процедурный тип можно сделать. Только нельзя делать указатель на локальную функцию. Функция должна быть глобальной.
Но я все-же рекомендую делать через классы.