Подскажите, как лучше сделать.

Есть DataSet (MemTableEh), прикрученный к таблице.

В odacQuery1 есть записи:
id_rec
name

В odacQuery2 есть записи:
id_rec
state - поле state (0-не определено; 1 - выполнено; 2 - не выполнено).

Задача заполнить DataSet (MemTableEh), в итоге каждая строка должна быть:
id_rec name state

А далее отсортировать его таким образом, чтобы сначала шли записи со статусом =0, потом 1, потом 2.

Сейчас просто делаю три прогона по odacQuery1, в каждом из них проверяю поле state, а затем по id_rec добавляю в
DataSet (MemTableEh).


_{try
while not odacQuery1.Eof do
begin
if odacQuery2.Locate('id_rec', odacQuery1.FieldByName('id_rec').AsInteger, [])
and odacQuery2.FieldByName('state').asInteger = 0 then
begin
memTable1.Append;
memTable1.FieldByName('id_rec').AsInteger := odacQuery1.FieldByName('id_rec').AsInteger;
memTable1.FieldByName('state').Value := odacQuery2.FieldByName('state').Value;
memTable1.Post;
end;
odacQuery1.Next;
end;
Далее циклы но уже для state = 1, далее для = 2}

Как можно решить проблему более лаконичнее, без трех прогонов?
Возможно получить все в MemTableEh, а потом отсортировать?