Add(Button,4700009,105,119)
{
 Left=105
 Top=115
 link(onClick,12189452:doMyWork,[])
}
Add(VBJScript,12189452,161,119)
{
 WorkPoints=#8:doMyWork|
 EventPoints=#9:onMyEvent|
 Language=1
 Script=#23:function doWork(dt,idx)|1:{|21:  sys.onMyEvent(idx);|1:}|
 UseName=0
 link(onMyEvent,14751148:doMessage,[])
}
Add(Message,14751148,217,119)
{
}

#pas
function MyFunc(....): string;
var
  Arr: array of Pointer;
  I: integer;
begin
  SetLength(Arr, xxx);
  ....

  asm
    // Вот этот фрагмент мне нужен, условно:
    //for I := High(Arr) downto 0 do
    //begin
    //  push Arr[I]
    //end;
  end;

  ....
end;