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;

  //parameters protect from SQL injection
  Query.SQL.Text :=
    'select name from lines where id = :id';
  Query.ParamByName('id').AsInteger := 1;
  Query.Open;

  WriteLn(Query.FieldByName('name').AsString);
  Query.Close;
end.