Table1 id N(10,0), nazv C(50)
Table2 id N(10,0)

Форма, на ней List1 и List2
List1 это Table1, к лист2 соответственно привязываю создающийся курсор ТТТ

нужно сделать чтобы можно было
1 - перегонять данные из листа1 в лист2 и наоборот, если оператор ошибся
2 - после окончания заполнения листа2, нужными значениями из листа1 заполнялась таблица Table2 соответствующими номерами id.
Делаю так:
----------------------------------------------------------
form Init
SET DELETED ON
CREATE CURSOR ttt (id N(10,0), nm C(50))
---------------------------------------------------------
list1 doubleclick

Thisform.list1.RemoveItem(Thisform.list1.ListIndex) && проблема НЕ удаляется элемент

INSERT INTO ttt VALUES (Thisform.list1.ListIndex, ALLTRIM(table1.nazv))

THISform.list2.SetFocus()
THISform.list1.SetFocus()

------------------------------------------------------------
list 2 doubleclick

DELETE FROM ttt WHERE RECNO() = Thisform.list2.ListIndex
* удаление происходит "как ему хочется"
* т. е. то удаляет.. то совсем не удаляет....

THISform.list1.SetFocus()
THISform.list2.SetFocus()

Может у кого-то возникнут идеи КАК это красиво сделать???
Буду премного благодарен!!!