[d9bolic]

Код:

procedure Proc( AProc: FormInnerProc = nil);
begin
  //тут создается форма
  try
    if (@AProc <> nil) 
      then AProc(Form);
  finally
    //тут она чистится
  end;

//у некоторой функции
begin
  Proc(@InnerForm);
end;//сразу после endа выкидывает AV на 0х00000000000

Процедура отрабатывает нормально, процедура InnerForm отрабатывает нормально