Процедура в процедуре. Правильное описываение.

[JTG]

type
  TProc = reference to function(x: Integer): function;

function Foo(a: Integer): TProc;
begin
  Foo := function(b: Integer): Integer;
  begin
    Result := a + b;
  end;     
end

*_* обьясните мне кто-нибудь, нафига нужны эти замыкания? Т.е. я конечно слышал, что "в точке вызова функции доступны переменные, которые были в зоне видимости определения функции, но не видны в самой точке вызова", но ясности это не добавило

[Levsha100]

нафига нужны эти замыкания?

Для обфускации и в следствии полного разрушения мозга

[OCTAGRAM]

Сообщение от JTG

обьясните мне кто-нибудь, нафига нужны эти замыкания?

Для удобного конструирования обратных вызовов.

Вроде бы у Synchronize есть перегруженный вариант с замыканием. Если непонятно, для чего нужны замыкания, можно сделать двухпоточное приложение и из неGUI потока активно поделать что–нибудь с GUI элементами управления. Например, в цикле for поменять Caption у Button на значение переменной for.