Passar informações de um arquivo txt para um banco d dados

use uma tstringlist dinamica


var

d : tstringlist

begin
d := TStringList.Create;
d.LoadFromFile (´C:\SeuArquivo.txt´);

.
.
.
for i := 0 to d.count - 1 do
begin
with query do
begin
SQL.Text := ´insert into tabela (Campo) Values (´´´+d.strings[i]+´´´)´;
Execute;
end;
end;
.
.
.
end;