Converter arquivo texto para um banco de dados

Type Estutura=Record
Nome:String[30];
Endereco:String[50];
end;
Var ArqTexto : TextFile;
Registro : Estrutura;
Begin
AssignFile(ArqTexto,'Dados.txt');
Reset(ArqTexto);
While not eof(ArqTexto) do
Begin Readln(ArqTexto , Registro);
. . Inclusao no seu banco de dados
. end;
end.