[droguerman]

if (Memo->Lines->Count <=0)
        ShowMessage ("Primero debe seleccionar un archivo");
 else
   {
        TStringList *SL = new TStringList;
    AnsiString cadena;
 
        int i,contador=Memo->Lines->Count;
 
        for (i=1; i<contador; i++)
         {
           cadena=Memo->Lines->Strings[i];
                  SL->CommaText = cadena;
                  DM->Proveed->Insert();
 
                  int cantidad = SL->Count; // La cantidad de componentes
 
                  for (int fila=0; fila < cantidad; fila++) 
               Memo1->Lines->Add(SL->Strings[fila]); 
 
         DBEdit1->Text=SL->Strings[0];
         DBEdit2->Text=SL->Strings[2];
         DBEdit8->Text=SL->Strings[8];
             }
             DM->Proveed->Post();
     }
     ShowMessage("ARCHIVO EXPORTADO.....");
 
   }