Вывести в Memo2 надпись "В 10-ку!(win)", при условии, что число, сгенерированное функцией [random] в Memo1, равно 10

Разработать функцию MakeStr(const S:string):string, возвращающую строку, состоящую из всех гласных латинских букв строки S без повторений