Prueba con los siguientes combios...
Código Delphi
[-]
if FileExists(Plantilla) then begin
vFichero := TStringList.Create;
vFichero.LoadFromFile(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + Plantilla);
for i:=1 to vFichero.Count - 1 do begin
vsLinea := vFichero.Strings[i];
vsSql := 'INSERT INTO PLANTILLA_XML (ATRIB1) VALUES (:vsLinea)';
qCargaTabla.Close;
qCargaTabla.SQL.Text := vsSql;
qCargaTabla.ParamByName('vsLinea').asString := vsLinea;
qCargaTabla.ExecSQL;
end; vFichero.Clear;
vFichero.Free;
end