[dmdx]

Всех приветствую.
народ подскажите такую вещь будет ли отрабатываться процедура FreeAndNill? при выполнении процедуры Exit.

Код:

var
  QuestForm : TfrmExpExcelParam;
begin

  QuestForm := TfrmExpExcelParam.Create(nil);
  try
   if QuestForm.ShowModal = mrOk then begin

   end else Exit;
  finally
   FreeAndNil(QuestForm);
  end;

[lmikle]

Да, будет.
А самому попробовать просто поставив ShowMessage в Finally?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Try
    ShowMessage('Try');
    Exit;
  Finally
    ShowMessage('Finally');
  End;
end;

[dmdx]

Проверял по трейсу останавливается на проце exit и выходит. Теперь вижу что выполняется спс.