Importar fichero XML
 

Hola estoy intentando cargar un fichero XML en una tabla de interbase de la siguiente manera:

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.ExecSQL;
end;//for
vFichero.Clear;
vFichero.Free;
end //if FileExists

Y me da el siguiente error:

Project PtojectXML.exe raised exception class EDBEEngineError with message 'Missing right quote.'. Process stopped. Use Step or Run to continue

¿Alguien podría decirme porfavor porque me pasa y como solucionarlo?

Gracias

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;//for
  vFichero.Clear;
  vFichero.Free;
end //if FileExists