{$MODE DELPHI} // Enable Try/Finally keywords

var
  number, zero : Integer;

begin
  // Try to divide an integer by zero - to raise an exception
  number := -1;
  Try
    zero   := 0;
    number := 1 div zero;
    Writeln('number / zero = ',number);
  Finally
    if number = -1 then begin
      Writeln('Number was not assigned a value - using default');
      number := 0;
    end;
  end;
end.