Если внимательно приглядеться к представленному быдлокоду, можно увидеть, что в последней строчке переменная Data запросто может быть не определена:
В этой строчке в Data ожидается OleObject, но из-за отсутствия
begin-
end при невыполнении условия в
if Data будет иметь вариантное значение Empty, что и вызовет исключение.