Исключительная ситуация

[Mozgunov]

Ребят помогите разобраться с исключительной ситуацией. Мне нужно чтобы при возникновении этой ситуации программа завершала работу и выводила сообщение об ошибке, а она вместо этого спокойно работает дальше. Код выкладываю ниже:

procedure TForm1.FormCreate(Sender: TObject);
begin

try
Acad := GetActiveOleObject('AutoCAD.Application');
except
ShowMessage('Не удалось соединиться с Autocad');
abort;
end;

Acad.Visible := True;
ModelSpace := Acad.ActiveDocument.ModelSpace;
Acad.ActiveDocument.SendCommand('(load "C:\\Unit_1\\helix.lsp")' + #13);
end;

Т.е. Должен был произойти abort; и программа должна была завершиться, а она вместо этого всё равно пытается сделать объект Acad видимым и окно не исчезает.

[evg_m]

application.terminate;

[Stilet]

Или Halt; Или ExitProcess(0);
На вкус и цвет.