callback в turbo pascal

[Naive]

Пару минут назад коллега задал глупый вопрос, однозначный ответ на который я дать не смог в силу давно забытых и без того слабых знаний языка Паскаль.
Собственно вопрос: возможно ли в паскале использовать функции обратного вызова?

[Stilet]

Можно. Примерно так должно:

Описываем тип калбэка
type p=procedure;

И то  что будет его вызывать
procedure a(pp:p); begin pp; end;
...
Сам обработчик
procedure proc(); begin...end;
...
И по присвоении вызываем
p:=proc;
a(p);

Давно так не делал но должно сработать.

[Naive]

Мощно, благодарствую)

[Stilet]

Не мешало бы проверить )
Я давно с ТР не работаю.

[Arigato]

Процедурные типы в TP7 работают.

[Stilet]

Процедурные типы в TP7 работают.

Они по-моему и в ТР5 работали, но как правильно их нужно было оформлять я уже не помню