Работа с файлами .txt

void __fastcall TForm1::FormCreate(TObject *Sender)
{
char ch;
AnsiString path=ExtractFilePath(Application->ExeName)+"\\path.txt";
ifstream in(path.c_str());
while (!in.eof())
{ in>>ch;
Edit1->Text=Edit1->Text+ch;
}
in.close();
}
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
AnsiString path=ExtractFilePath(Application->ExeName)+"\\path.txt";
ofstream out(path.c_str());
out<<Edit1->Text.c_str();
out.close();
}

void __fastcall TForm1::ButtonConnectClick(TObject *Sender)
{
AnsiString FN = ExtractFilePath(Application->ExeName)+"\\path.txt";
 
    int FileHandle = FileOpen(FN, fmOpenRead);  //подключение
    if(FileHandle == -1)
      {
        ShowMessage("Файл для чтения не удалось открыть!");
        return;
      }
 
    int FileLength = FileSeek(FileHandle, 0, 2);              
    FileSeek(FileHandle, 0, 0);                                
 
    char *Buffer = new char[FileLength + 1];
    FileRead(FileHandle, Buffer, FileLength);                
 
    FN = "";
    for(int i = 0; i < FileLength; i++)
      {
FN += Buffer[i];
      }
 
    Memo1->Text = FN;
 
    FileClose(FileHandle);
    delete [] Buffer;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonUncoupledClick(TObject *Sender)
{
 
    if(Application->MessageBox("Подумали?",
                                   "Вопрос", 
                                   MB_YESNO|MB_ICONQUESTION) == IDNO)
        {
            ShowMessage("Select no!");
            return;
        }
        else
        {
            ShowMessage("Select yes!");
        }
 
AnsiString FN = ExtractFilePath(Application->ExeName)+"\\path.txt";
 
    DeleteFile(FN);
 
    int FileHandle = FileCreate(FN);
 
    if(FileHandle == -1)
      {
        ShowMessage("Ой, Беда! Некуда писать!");
        return;
      }
 
    int FileLength = Memo1->Text.Length();
 
 
 
    char *Buffer = new char[FileLength + 1];
 
    for(int i = 0; i < FileLength; i++)
      {
        Buffer[i] = Memo1->Text[i + 1];
      }
 
    FileSeek(FileHandle, 0, 0);
    FileWrite(FileHandle, Buffer, FileLength);
 
    FileClose(FileHandle);
    delete [] Buffer;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonMemoClearClick(TObject *Sender)
{
     Memo1->Clear();
}
//---------------------------------------------------------------------------