Загрузить текстовый файл программно с диска

// так:
try {
    memo->Lines->LoadFromFile( "path" );
}
catch( EFOpenError & e ) {
    ShowMessage( "Failed with error: " + e.Message );
}
// или так:
String path = "path";
if ( FileExists( path ) ) memo->Lines->LoadFromFile( path );
else ShowMessage( "Failed to load \"" + path + "\" from disk." );
// или еще как... :)

String f = "1.txt";
if ( FileExists( f ) ) Memo1->Lines->LoadFromFile( f );
else ShowMessage( "файл \"" + f + "\" ненайден" );

//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
if(FileExists("Texts tracks/K4-Nn.txt"))
{
RichEdit1->Enabled = true;
RichEdit1->Lines->Clear();
RichEdit1->Lines->LoadFromFile("Texts tracks/K4-Nn.txt");
}
else
{
RichEdit1->Text = ("Текстовый файл не найден! \nЧтение невозможно!");
}
}
//---------------------------------------------------------------------------