Код:
procedure Proc( AProc: FormInnerProc = nil);
begin
//тут создается форма
try
if (@AProc <> nil)
then AProc(Form);
finally
//тут она чистится
end;
//у некоторой функции
begin
Proc(@InnerForm);
end;//сразу после endа выкидывает AV на 0х00000000000
Процедура отрабатывает нормально, процедура InnerForm отрабатывает нормально