обьявляй в разделе
var resultat
rocedure();
А потом после begin'а (для проседуры keyctrl) -
а то выходит, что ты уже реализуешь эту функцию, когда тебе нужен только указатель на готовую в EXE.
Код:
procedure keyctrl(nx1:pointer)
var i:integer;
rezultat :procedure() ;
begin
@rezultat:=nx1; { вот так не должно выводить ошибку}
end;
ЗЫ интересные эффекты со смайликами.