Внешняя процедура

[Smallboy]

Добрый день!
Возник вопрос, не могу разобраться в ситуации. В длл есть процедура
SetCallbackInterface(Proc: Pointer; Buf:Pointer); stdcall;

proc - указатель на процедуру в программе
ига - указатель на буфер

данная процедура регистрирует внешнюю процедуру и буфер обмена.
если в ходе выполнения других функций из длл возникает необходимость взаимодействия с пользователем, то длл вызывает зарегистрированную процедуру(proc) и общается с программой через буфер, т.е изначально получает какие-то значения из буфера, потом дает ответ в буфер и завершает работу.
Вот пример как должно работать

Type
  TBuffer = record
     поля
  end;

  TProc = procedure;
 
  procedure CallBackProc;
  procedure SetcallBackInterface(Proc: Pointer; Buf:Pointer); stdcall;

Var
  Buffer: TBuffer;
  Proc: Tproc;

procedure TFrom6.CallBackProc;
begin
  WriteBuffer; // выводит данные буфера на экран;
end
 
procedure TForm6.CalculateResult;
begin
...
Proc:=@CallBackProc; // тут ошибка variable required
SetCallBackInterface(Proc, @Buffer); 
// тут мы регистрируем внешнюю процедуру и буфер
...
 calculate(x,y); \\тут мы вызываем какую-то функцию из длл
// если данной функции необходимо получить от пользователя какие-то
//дополнительные данные то она должна вызвать зарегистрированную 
//процедуру CallBackProc и общаться через буфер.
...
end

суть проблемы : не получается выполнить регистрацию внешней процедуры.
Если ставить SetCallBackInterface(nil, @Buffer); то все работает.
Если ставить SetCallBackInterface(@CallBackProc, @Buffer); то таже ошибка variable required

[Человек_Борща]

  TProc = procedure;
            pProc= ^TProc;
 
  procedure CallBackProc;
  procedure SetcallBackInterface(Proc: pProc; Buf:Pointer); stdcall;

SetcallBackInterface(@CallBackProc,SuperBuff);

как-то так..

[Smallboy]

Спасибо, все работает