[Bad-Teo]

Добрый день.
Подключился к базе данных SQLite, проблем не возникло.
Не получается получить правильно результат.

Делаю запрос к базе данных. Для понимания результата что получаю попробовал вывести результат в Memo.

Код:

  i: integer;
  s : string;
begin
  with FDQuery1 do begin
  SQL.Clear;
  SQL.Text := 'SELECT DISTINCT SYSKEY FROM SYS_OPT_EXT SYSOP WHERE BLOCK_ID = ''22''';
  Open;
  Memo1.Lines.Clear;
  First;
  while not FDQuery1.EOF do
  begin
    For i := 0 to Fields.Count - 1 do
    memo1.Lines.Add(Fields[0].Value);
    Next;
  end;
  Close;
  end;
end;

Получил результаты:

Код:

2200
2217
2218
2231
2232
2266
2267
22001900
22006300
22006400
22007600
22009400

Админ: тег код используется для кода, цитаты для цитат, не нужно путать...




Теперь мне нужно каждый из полученных результатов каким-то образом прогнать в цикле следующего запроса таблицы ID, но только исключить из цикла проверка с числом 2266(там будет результат, но не то что мне надо)

SELECT MUTCLASS FROM MUTCLASS_EXT WHERE BLOCK_ID = 1107760020 AND ID = 2267

В Edit1.Text нужно вывести результат. Прежде Исключить все пустые значения.

Помогите пожалуйста с данной проблемой. Оформить в одну процедуру.