Многооконый текстовый редактор, функции для открытия, сохранения

{if (SaveDialog1->Execute())
RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);}

if (OpenDialog1->Execute())
        {
        RichEdit1->Clear();
        RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "UMDI.h"
#include "UDoc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFMDI *FMDI;
--------------------------------------------
__fastcall TFMDI::TFMDI(TComponent* Owner)
        : TForm(Owner)
}
//---------------------------------------------------------------------------
void __fastcall TFMDI::MNewClick(TObject *Sender)
{
TFDoc *TF = new TFDoc(FMDI);
if (!TF) return;
TF->Caption = "Dcoument " +IntToStr(MDIChildCount);
}
 
void __fastcall TFMDI::MOpenClick(TObject *Sender)
{
/*if (OpenDialog1->Execute())
        {
        RichEdit1->Clear();
        RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
} */
}
//---------------------------------------------------------------------------
void __fastcall TFMDI::MSaveClick(TObject *Sender)
{
if (SaveDialog1->Execute())
        RichEdit->Lines->SaveToFile(SaveDialog1->FileName);
}
 
//---------------------------------------------------------------------------

void __fastcall TFMDI::MSaveClick(TObject *Sender)
{
if (SaveDialog1->Execute())
        UDoc->RichEdit->Lines->SaveToFile(SaveDialog1->FileName);
}

ИмяФормыНаКоторойЛежитРичЭдит->RichEdit1->...

#include "UMDI.h"
#include "UDoc.h"