Здравствуйте, demidov2, Вы писали:

D>Здравствуйте, OdesitVadim, Вы писали:

OV>>Здравствуйте, demidov2, Вы писали:

D>>>Если ставлю MainForm.Close, то потом процедура продолжается.

OV>>а если слудующей строкой добавить exit? это даст выход с процедуры.

D>Спасибо. Да, это выход, но в проге ОЧЕНЬ много таких кусков и заменять одну строку на две долго. Часто надо будет begin — end вставлять.
можно и по другому. Генерить ошибку с помощью Raise.
А также поставить на форму ApplicationEvents (Additional) и там перехватывать. Только для полного счастья можно генерить не обычное исключение, а наследоваться.

type EMyExc = EExcepion;

...
procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
  if e is EMyExc then halt;//ну можно и не так жестоко выходить
end;

потом можно и фильтровать свои