No das detalles del formato del archivo fuente pero existe un componente Freeware con el que podes hacer las cosas bastante simples en caso de que el archivo de texto sea un formato separado por comas, ´;´, tabs o cosas por el estilo.
No recuerdo de donde lo baje pero si lo necesitas puedo enviartelo.
Sino tenes siempre tenes la posibilidad de
Procedure ........
Var
Fuente : textFile ;
AuxS : String ;
Begin
AssignFile(Fuente,´Archivo´)
{$I-}
Reset(Fuente) ;
{$I+}
If IOResult <> 0
Then
Begin
// Mensaje de archivo no existe o algo asi
Exit ;
End ;
While Not Eof(Fuente) Do
Begin
ReadLn(Fuente,AuxS) ;
// en AuxS tendrias una la linea del archivo de
// Texto con Copy(String, inicio, cantidad)
// Podrias estraer los valores y asignarlos a
// los campos de una tabla asignada previamente
// al archivo dbf donde los necesitas guardar
Table1.insert ;
Table1Campo1.value := Copy(AuxS,1,3);
.
.
.
Table1.post ;
End ; // while
.
.
End ;// procedure