Я приведу пример фрагмента программы, ниже будет дано подробное описание данного фрагмента.

try

A := StrToInt (Input.Text);

except

ShowMessage ('Ошибка ввода целого числа!!!');

Input.SelectAll;

Exit;

end;



В данном фрагменте программы с помощью зарезервированных слов try, except и end реализуется так называемый защищённый блок.