указываю 2 параметра для VAL и передаю это в TDialogService.InputQuery

procedure TfmMain.Send(id: integer);
Var
  val: array of string;
  cap: string;
begin
// запускаем диалог ввода имени

  SetLength(val, 2);
  val[0] := VarToStr(qCalls.Lookup('ID', id, 'name'));
  val[1] := id.ToString;
  cap    := 'Введите имя';

  TDialogService.InputQuery(cap, ['Имя клиента: '], Val, InputDialogHandlerGetShotName);
end;

В итоге, в недрах TDialogService.InputQuery получаю исключение:

Цитата

Project raised exception class EArgumentOutOfRangeException with message 'Argument out of range'.

На андроиде ошибки нет.

Есть работающий пример

TDialogService.InputQuery(cap, ['Введите имя: '], Val, InputDialogHandlerEditTelName);

....
....
....
procedure TfmEditObject.InputDialogHandlerEditTelName(const AResult: TModalResult; const AValues: array of string);
begin
...
...
end;

Я решил пойти по тому же пути. Есть некая главная форма с кнопкой, которую пользователь нажимает, выбирает на другой форме что-то и, по идее, должна выполниться какая процедура на первой форме.

Главных форм несколько, т.к. во многих местах приложения пользователь что-то выбирает. А форма выбора для всех одна.

Я добавил в проект модуль, где написал:
 

type
  TCallBackProcSelectRef = reference to procedure(idRegion: integer; constsFullRegion: string);

...

procedure CallBackProcSelect(idRegion: integer; const sFullRegion: string);

implementation

procedure CallBackProcSelect(idRegion: integer; const sFullRegion: string);
begin
  fmMain.lbSelRegion.Text := sFullRegion;
  fmMain.idRegion := idRegion;
end;

На форме выбора есть процедура
 

private

  procedure SelRegion2(CallBackProcSelectRef: TCallBackProcSelectRef);

...

...

procedure TfmTree.SelRegion2(CallBackProcSelectRef: TCallBackProcSelectRef);
begin
  CallBackProcSelectRef(TreeView1.Selected.Tag, TreeView1.Selected.Text);
end;

здесь же, на форме выбора, на кнопке выбора есть строка:

SelRegion2(CallBackProcSelect);

вроде бы всё так же, как и с диалогами, но компилятор ругается:

Incompatible types: 'TCallBackProcSelectRef' and 'Procedure'

что я не правильно понял в анонимных процедурах, что я делаю не так?

В примере реализован вызов анонимного метода Present() интерфейса IDirect3DDevice9, имея ссылку на интерфейс и порядковый номер метода.

Данная реализация пригодится при установке ловушек (Hooks).

Вкратце, суть реализации такая:

Объявляю процедурный тип нужного метода

type
  TPresent9 = function(pSourceRect, pDestRect: PRect; hDestWindowOverride: HWND; pDirtyRegion: PRgnData): HResult of object; stdcall;

Объявляю переменную этого типа

var
  PPresent: TPresent9;
begin
  ...
  IntRefToMethPtr(d3d9Dev, PPresent, 17);
  PPresent(nil, nil, DParametrs.D3DPP.hDeviceWindow, nil);

Реализую процедуру получения метода интерфейса по номеру

procedure IntRefToMethPtr(const IntRef; var MethPtr; MethNo: Integer);
type
  TVtable  = array [0 .. 999] of Pointer;
  PVtable  = ^TVtable;
  PPVtable = ^PVtable;
begin
  // QI=0, AddRef=1, Release=2, etc
  TMethod(MethPtr).Code := PPVtable(IntRef)^^[MethNo];
  TMethod(MethPtr).Data := Pointer(IntRef);
end;

А теперь получаем метод интерфейса по его порядковому номеру и вызываем его

  IntRefToMethPtr(d3d9Dev, PPresent, 17);
  PPresent(nil, nil, DParametrs.D3DPP.hDeviceWindow, nil);

Благодарю за оценку этого решения на StackOverflow.

Скачать пример: D3DDemo.zip

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

А дело было так - при вызове MyCore.Free класс не уничтожался - не вызывался деструктор из за того, что после вызова Free, счетчик ссылок (reference Count) был равен 1. Приходилось пользоваться  DisposeOf. Решил разобраться.

Для этого перекрыл виртуальные методы TObject отвечающие за изменения счетчика объекта (см. также полный пример ниже).

function __ObjAddRef: Integer; override;
function __ObjRelease: Integer; override;

Итак TCore содержит класс TTestClass - у которого есть событие OnMyEvent. 
Прототип описан как анонимная процедура - TAnonymProc = reference to procedure;

При указании анонимной процедуры, т.е. : 

procedure TCore.SetEvent;
begin
  fTest.OnMyEvent := procedure ()
  begin
    fSetFlag := true;
  end;
end;

счетчик ссылок TCore увеличивается на 1 и не изменяется при выходе из SetEvent.

Теперь при вызове Free TCore - не будет вызван деструктор, который должен уничтожит классы TCore и TTestClass и произойдет утечка памяти.

Решение : 
1. Использовать слабые ссылки - weak, в нашем примере добавить атрибут [weak]:

TTestClass = class
strict private
  [weak]fOnMyEvent:TAnonymProc;
public
  property OnMyEvent: TAnonymProc read fOnMyEvent write fOnMyEvent;
end; 

При присваивании объекта в переменную со слабой ссылкой не происходит увеличение счётчика ссылок объекта на единицу. Аналогично, при очистке слабой ссылки не происходит уменьшение счётчика объекта на единицу.

2. Не использовать анонимные методы, а использовать обычные указатели на метод: 
Вместо TAnonymProc = reference to procedure; используем классический 
       TAnonymProc = procedure of object;

Демо пример, где можно отследить утечку прикрепил.

Полный код: 

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls;

type
  TAnonymProc = reference to procedure;
  TTestClass = class
  strict private
    fOnMyEvent:TAnonymProc;
  public
    property OnMyEvent: TAnonymProc read fOnMyEvent write fOnMyEvent;
  end;

  TCore = class (TObject)
  strict private
    fTest: TTestClass;
    fSetFlag: boolean;
  public
    constructor Create;
    destructor Destroy; override;
    procedure SetEvent;
    function __ObjAddRef: Integer; override;
    function __ObjRelease: Integer; override;
  end;


  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    fCore: TCore;
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button2Click(Sender: TObject);
begin
  fCore := TCore.Create;
  fCore.SetEvent;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Tag := fCore.RefCount;
  fCore.Free;
end;

{ TCore }

constructor TCore.Create;
begin
  fTest := TTestClass.Create;
end;

destructor TCore.Destroy;
begin
  fTest.Free;
  inherited;
end;

procedure TCore.SetEvent;
begin
  fTest.OnMyEvent := procedure ()
  begin
    fSetFlag := true;
  end;

end;

// test it on ARC compilers like Android, iOS
function TCore.__ObjAddRef: Integer;
begin
  Result := inherited __ObjAddRef;
end;

function TCore.__ObjRelease: Integer;
begin
  Result := inherited __ObjRelease;
end;

end.

AnonMethodsCycle.zip

  if TCustomPopupForm(self.PopupForm).OnKeyDown <> KeyDown  then

вызывает ошибку при компиляции Not enough actual parameters

Собственно как получить подобное условие?
И интересен будет комментарий к этому - почему такая ошибка.

procedure of object

Анонимные методы - reference to procedure (function)

То есть, это различные сущности.

В языке C# эти понятия тождественны, в Java AddListener принимает интерфейс типа ActionListener.

Что помешало разработчикам отождествить эти понятия?

Исторически унаследованная несовместимость?

Чем отличается procedure of object от reference to procedure? Это важно с точки зрения организации приложения в стиле ООП.

Спасибо большое!