Подготовить программу на Delphi

Во введённой строке подсчитать, сколько раз в словах встречалось событие, заключающееся в следовании подряд двух и более гласных букв русского алфавита. Например, в тексте "Длинношеее животное мирно гуляло по зеленеющему лугу" таких событий три: "еее", "ое", "ею"

Оконное приложение. Версия Delphi любая