uses System.SysUtils, FireDAC.Comp.Client;

var
  Conn: TFDConnection;
  Query: TFDQuery;
begin
  Conn := TFDConnection.Create(nil);
  Conn.DriverName := 'SQLite';
  Conn.Params.Database := 'data.db';
  Conn.Open;

  Query := TFDQuery.Create(nil);
  Query.Connection := Conn;
  Query.Open('select id, name from lines');

  while not Query.Eof do
  begin
    WriteLn(Query.FieldByName('id').AsInteger,
      ': ', Query.FieldByName('name').AsString);
    Query.Next;
  end;
  Query.Close;
end.