текстовый редактор

[olejaaa]

Нужно создать текстовый редактор с такой функцией: Во введенном тексте указать слово, в котором доля гласных (а, е, о) максимальна.

Сам текстовый редактор я создал, а вот дополнительную функцию не могу. Просто начинающий только.

Вот сам текстовый редактор

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TForm1::N2Click(TObject *Sender)
{
  TForm1::SpeedButton2Click(Sender);       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
if (Memo1->Lines->Count>0)
{ 
if (MessageBox(0,"Сохранить содержимое окна редактирования? ", 
"Подтвердите сохранение",MB_YESNO)==IDYES) 
{
SpeedButton5Click(Sender);
}
}; 
Memo1->Clear(); 
StatusBar1->Panels->Items[0]->Text="Без имени";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton5Click(TObject *Sender)
{
if (SaveDialog1->Execute()) Memo1->Lines->SaveToFile(SaveDialog1->FileName);
StatusBar1->Panels->Items[0]->Text=SaveDialog1->FileName;         
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
SpeedButton2Click(Sender); 
Close();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{
if (OpenDialog1->Execute()) Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
StatusBar1->Panels->Items[0]->Text=OpenDialog1->FileName;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton4Click(TObject *Sender)
{
if (StatusBar1->Panels->Items[0]->Text=="Без имени") 
SpeedButton5Click(Sender); 
else Memo1->Lines->SaveToFile(StatusBar1->Panels->Items[0]->Text);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton6Click(TObject *Sender)
{
Memo1->CutToClipboard();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton7Click(TObject *Sender)
{
Memo1->CopyToClipboard();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton8Click(TObject *Sender)
{

Memo1->PasteFromClipboard();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton9Click(TObject *Sender)
{
Application->CreateForm(__classid(TAboutBox), &AboutBox);
AboutBox->ShowModal(); 
AboutBox->Free();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)
{
TForm1::SpeedButton3Click(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)
{
TForm1::SpeedButton4Click(Sender);         
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)
{
TForm1::SpeedButton5Click(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)
{
TForm1::SpeedButton1Click(Sender);         
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)
{
TForm1::SpeedButton6Click(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N12Click(TObject *Sender)
{
TForm1::SpeedButton7Click(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N13Click(TObject *Sender)
{
TForm1::SpeedButton8Click(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N15Click(TObject *Sender)
{
TForm1::SpeedButton9Click(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N9Click(TObject *Sender)
{
N9->Checked= true;
Panel1->Visible= true;        
}

[Blade]

Один из возможных вариантов решения:
Создать массив символов гласных букв

const char[] arr = {'а', 'е', 'о'}; // указать все нужные буквы

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

[olejaaa]

ща попробую, спасибо