TTable *Table1;
Table1=Clientes->ClientesT; //o como le quieras llamar
//espero sepas por lo menos manejar tablas
Table1->Filtered=false;
Memo1->Lines->LoadFromFile("tu_archivo.TXT");
//el archivo txt que dices
//limpiamos la tabla (opcional)
Table1->First();
while (Table1->Eof==false)
Table1->Delete();//terminamos de limpiar la tabla
// Table1->Edit();
for (int i=0; i<=Memo1->Lines->Count-1; i++)
{
Table1->Append();
S=Memo1->Lines->Strings[i];
pos = S.Pos("|");
S2= S.SubString(1,pos-1);
S.Delete(1,pos);
Table1->FieldByName("Numero")->Value=S2.ToInt();
pos = S.Pos("|");
S2= S.SubString(1,pos-1);
S.Delete(1,pos);
Table1->FieldByName("Fecha")->Value=S2;
pos = S.Pos("|");
S2= S.SubString(1,pos-1);
S.Delete(1,pos);
Table1->FieldByName("Concepto")->Value=S2;
pos = S.Pos("|");
S2= S.SubString(1,pos-1);
S.Delete(1,pos);
Table1->FieldByName("Destino")->Value=S2;
pos = S.Pos("|");
S2= S.SubString(1,pos-1);
S.Delete(1,pos);
Table1->FieldByName("Otros")->Value=S2;
Table1->Post();
}//fin for