closure delphi

[yasic]

Всем привет! Есть вопрос по closure в Delphi.

TFunc = reference to function: TList<Integer>

далее

A: TFunc;

далее

function F (I: Integer): TFunc;

далее

procedure *MouseDown(.....);
begin
 A := F(...);
 ....
end;

далее

function F (I: Integer): TFunc;
begin
 Result := function(): TList<Integer>
    begin
       if I > 10 then
         Result.Add(I)
       else begin
         Result.Clear;
         Result.Add(I);
       end;
   end;
end;

при выполнение функции AV. если добавить в начало функции
Result := TList<Integer>.Create(); то все работает. НО... в TList<Integer> находится только один элемент, даже если условие True. и создается почему то еще один TList<Integer>. подскажите, где ошибка может быть.

[netrino]

Delphi не пользуюсь, и код проверить не могу, но попробуйте:

function F (I: Integer): TFunc;
var
  List: TList<Integer>;
begin
  List := TList<Integer>.Create();
  Result := function(): TList<Integer>
    begin
      if I > 10 then
        List.Add(I)
      else begin
        List.Clear;
        List.Add(I);
      end;
      Result := List;
    end;
end;

[yasic]

не-а. все равно один элемент в TList. и AV тоже