program test4;

uses
  Crt, Classes, Strings, Sqlite3, Sqlite3db;

const
  dbfile = 'fullcircle.db';
  dbquery = 'select title, download from issues order by id desc';

var
  sql : TSQLite;
  i, n : Integer;
  res : TStringList;
  id, downloadURL : String;

begin
    Clrscr;

    Writeln ('Creating connection');
    sql := TSQLite.Create(dbfile);

    sql.Query(dbquery, nil);

    n := sql.List_Field.count;
    Writeln ('Retrieving ', n, ' records');

    for i := 1 to n do
    begin
        res := TStringList(sql.List_Field.items[i-1]);
        id := res[0];
        downloadURL := res[1];
        writeln (id, ' ', downloadURL);
    end;

    sql.Free;
    Writeln ('Connection closed');
end.