Вызов функции в asm-вставке - Assembler

Формулировка задачи:

Здраствуйте, уже 3 час бьюсь что бы вызвать функцию в asm вставке, но никак не удаётся Этот код выполняется в обычном цикле, где i ровняется индексу, а p указателем на структуру куда надо записать элемент Arg

    asm
      mov eax, i
      shl eax, $04
      add eax, p
      mov p2, EAX
    end;
    TestSetRet(p2, Arg[i]);

Как код будет выглядеть в правильной формулировки ?? Полностью в блоке asm

Решение задачи: «Вызов функции в asm-вставке»

Листинг программы

$Btn1->onMouseDown = function($Sender /* TObject */, $Button /* TMouseButton; */, $Shift /* TShiftState; */, $X, $Y /*: Integer */) {
 // CODE ....
};

Объяснение кода листинга программы

Функция обратного вызова назначена событию мыши Button1Down.
В функции обратного вызова определены параметры:
- $Sender: объект, который вызвал событие
- $Button: номер кнопки мыши
- $Shift: состояние клавиш модификаторов
- $X, $Y: координаты курсора относительно верхнего левого угла окна
В коде необходимо реализовать обработку события мыши Button1Down.