Работа с фаилами

[T.A.T.A.R.I.N]

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

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

AnsiString fname="";
char buf[256]="";


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


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


void __fastcall TForm1::NOpenClick(TObject *Sender)
{
if (OpenDialog1->Execute())
        {
        fname=OpenDialog1->FileName;
        Memo1->Lines->LoadFromFile(fname);
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NNewClick(TObject *Sender)
{
Memo1->Clear();
Memo2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NRunClick(TObject *Sender)
{
AnsiString st;
AnsiString del="abcdefghijklmnopqrstuvwxyz";

Memo2->Clear();

for (int i=0;i<=Memo1->Lines->Count;i++)
        {
        StrPCopy(buf,Memo1->Lines->Strings[i]);
        st=buf;

for (int k=0;k<=StrLen(st.c_str());k++)
{
if ((IsDelimiter(del,st,k))
&& (IsDelimiter(del,st,k+1))
&& (IsDelimiter(del,st,k+2))
&& (IsDelimiter(" ",st,k-1)))
{
if (Memo1->Lines->Strings[k]=="a")
{
st=StringReplace(Memo1->Lines->Strings[k],"a","A",TReplaceFlags()<<rfReplaceAll);
}
Memo2->Lines->Add(st);
break;
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NSaveClick(TObject *Sender)
{
if (fname!="")
        Memo2->Lines->SaveToFile(fname);
else
        if (SaveDialog1->Execute())
                {
                fname=SaveDialog1->FileName;
                Memo2->Lines->SaveToFile(fname);
                }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NSaveasClick(TObject *Sender)
{
SaveDialog1->FileName=fname;

if (SaveDialog1->Execute())
        {
        fname=SaveDialog1->FileName;
        Memo2->Lines->SaveToFile(fname);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NHelpClick(TObject *Sender)
{
AboutBox->ShowModal();
}
//------------------------------------------------------------------------