function GetExceptionMessage: String;

Returns the message associated with the current exception. This function should only be called from within an except section, or a function called from an except section.

Exception messages generally do not end in a period. Pass the result of this function to AddPeriod to add one.

var
  I: Integer;
begin
  I := 1;
  try
    // The following line will raise a "Division by zero" exception
    I := I div 0;
  except
    // Catch the exception, deal with it, and continue
    MsgBox('We caught this exception: ' + AddPeriod(GetExceptionMessage),
      mbError, MB_OK);
  end;
end;