void __fastcall TForm1::Button2Click(TObject *Sender)
{
TStringList *Ar = new TStringList();
Ar->Clear();
if(FileExists("archivo.txt"))
{
Ar->LoadFromFile("archivo.txt");
Edit1->Text = Ar->Strings[0];
Edit2->Text = Ar->Strings[1];
Memo1->Clear();
for(int i=2;i<Ar->Count;i++)
Memo1->Lines->Add(Ar->Strings[i]);
delete Ar;
}
else
ShowMessage("No se encontro el archivo");
}