Чтение данных из базы SQLite в массив строк

for i:=1 to Adoquery1.RecordCount do
begin
a[i]:=AdoQuery1['vopr'];
end;

procedure TServerModule.StoreMailIdPass(cMail, cpass, id:string);
var
  line: integer;
begin
  line:=0;
  try
     FDQuery1.Close;
     FDQuery1.SQL.Clear;  //   .Table('mails').Assign();
     FDQuery1.SQL.Append('SELECT line FROM mails WHERE CodedMail="'+cMail+'"');
     FDQuery1.Open;
  finally
    //
  end;
 
  if (FDQuery1.RowsAffected>0) then line:=FDQuery1.FieldByName('line').AsInteger;
 
  if (line>0) then
  begin
      //
  end
  else
    begin
        FDQuery1.Edit; // Append;  //  Append - добавление  Delete - удаление
        FDQuery1.SQL.Clear;  //   .Table('mails').Assign();
        FDQuery1.SQL.Append('INSERT INTO mails (CodedMail, cPass, id) VALUES (:cMail, :cpass, :id)');
      try
        FDQuery1.Post;
      finally
       //
      end;   {}
    end;
end;

 begin
        FDQuery1.Edit; // Append;  //  Append - добавление  Delete - удаление
        FDQuery1.SQL.Clear;  //   .Table('mails').Assign();
        FDQuery1.SQL.Append('INSERT INTO mails (CodedMail, cPass, id) VALUES (:cMail, :cpass, :id)');
      try
        FDQuery1.Post;
      finally

        FDQuery1.Insert; 
        FDQuery1.SQL.Clear;  
        FDQuery1.SQL.Text:='INSERT INTO mails (CodedMail, cPass, id) VALUES ("'+cMail+'", "'+cpass+'", "'+id+'")';
      try
        FDQuery1.ExecSQL;  // - Database is locked   
      finally
      end;   {}