Процедурные типы

ChViс 30.06.2004 - 12:23 | Есть функция на С int CALLBACK dllFunction(HWND hwnd, void (CALLBACK *Fn)) void (CALLBACK *Fn) эта функция в формате Delphi имеет вид : procedure PrResult(const rtd : RetData) stdcall; Где RetData - некоторая структура. Надо описать прототип dll-ской функции, вопрос - как это сделать. Я это сделал следующим образом, но похоже неправильно. Пишет Invalid variant type conversion TSetHeaderFooter = function (Handle:HWND; Fn:TFPResults) : integer; TFPResults = procedure(const rtd:TRetData);stdcall;

>>