Перестал работать ранее рабочий код

Delphi XE, win 7x64. Прекрасно работающий несколько лет назад код, вдруг стал выдавать AV

Project xxx.exe raised exception class EAccessViolation with message 'Access violation at address 00409230 in module 'xxx.exe'. Read of address CC8B1287'.

Сокращенный до воспроизводимого минимума код:

function GetNumForNextInstance: string;
var
  il: TList<Integer>;

  function EnumProc(h: HWND; Param: LongInt): Boolean; stdcall;
  begin
    il.Add(1); // AV here!
  end;

begin
  il := TList<Integer>.Create;
  try
    il.Add(0); // OK
    EnumWindows(@EnumProc, 0);
  finally
    il.Free;
  end;
end;

Что не так?
Скрин с callstack:

LiYing,

А так?

function EnumProc(h: HWND; Param: LPARAM): Boolean; stdcall;
var
  il: TList<Integer> absolute Param;
begin
  il.Add(1); 
end;

function GetNumForNextInstance: string;
var
  il: TList<Integer>;
begin
  il := TList<Integer>.Create;
  try
    il.Add(0); // OK
    EnumWindows(@EnumProc, LPARAM(il));
  finally
    il.Free;
  end;
end;

Завязывайте уже с локальными коллбэками, да ещё и с обращением к внешним переменным.

alekcvp	↑
А так?

Так работает, спасибо!
Завязываю... :)

Странно, что вообще давал такое провернуть.

Василий 2	↑
Странно, что вообще давал такое провернуть.

Чесслово, работало! На этом же компе, с этой же виндой и делфи. Проект тот не компилил года 2-3, а тут достал внести маленькое изменение, а оно AV стало выдавать... может обнова винды какая сыграла роль, ибо все остальное осталось прежним.. ну да ладно, переделаю уже "по-взрослому" :)

LiYing	↑
Чесслово, работало!

Небось, с глобальными объектами работала enum процедурка, или в контексте объекта, адрес которой передавался во втором параметре, а ты в лоб локальный добавил, или вообще поле объекта.

ёёёёё,

да нет же! Просто попытался скомпилировать старый проект, ранее 100% рабочий, а тут AV... ничего не менял вообще.

ёёёёё	↑
LiYing ↑ Чесслово, работало! Небось, с глобальными объектами работала enum процедурка, или в контексте объекта, адрес которой передавался во втором параметре, а ты в лоб локальный добавил, или вообще поле объекта.

В тот раз просто так регистры сошлись... а в этот не сошлись
Тут гулял по инету модуль Base64, где автор в ассемблерной процедуре вместо EDX считывал второй параметр из EBX - и ничего, в 9 их 10 случае работало... почему-то :)

LiYing, подтянуть матчасть можно тут:
https://www.gunsmoker.ru/2015/04/task-18-1.html
https://www.gunsmoker.ru/2015/04/task-18.html
https://www.gunsmoker.ru/2015/04/task-18-3.html
https://www.gunsmoker.ru/2015/05/task-18-answer.html

GunSmoker,

Вот спасибо, очень познавательно!