[Uniq!]

У месть есть большой XML файл, который содержит в себе 20-30 структур строительных зданий (nObj - одна структура).
Без потоков я просто беру параметрический цикл:

Код:

1 2 3 4 5 6 7 8 9 10 11

iObjs := XMLDoc.DocumentElement; for ObjNr := 0 to iObjs.ChildNodes.Count - 1 do     begin         nObj := iObjs.ChildNodes[ObjNr];         txtObjNr := nObj.ChildValues['T_Number'];         txtObjCity := nObj.ChildValues['City'];         txtObjAddress := nObj.ChildValues['Street'];           // внутренний парсинг конкретного nObj       end

Медленно. Поэтому решил каждый объект отдать на растерзание парсеру в отдельный поток:

Класс потока:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

type   TObjThread = class(TThread)   private     sObj: IXMLNode;     { Private declarations }   protected     procedure Execute;     constructor Create(nObj: IXMLNode);   end;   constructor TObjThread.Create(nObj: IXMLNode); begin   inherited Create(True);   self.sObj := nObj;   Resume; end;

Далее в вышеуказанном цикле пытаюсь создать экземпляр потока:

Код:

1 2 3 4 5

for ObjNr := 0 to iObjs.ChildNodes.Count - 1 do     begin         nObj := iObjs.ChildNodes[ObjNr];         ObjThread := TObjThread.Create(nObj);     end

Но когда дело доходит до Execute получаю ошибку

Код:

1	Abstract Error.

Вот код процедуры Execute (Ради пробы пера просто пытаюсь получить значение полей из структуры nObj)

Код:

1 2 3 4 5 6 7 8

procedure TObjThread.Execute; var   txtObjNr, txtObjCity, txtObjAddress: OleVariant; begin   txtObjNr := sObj.ChildValues['T_Number'];   txtObjCity := sObj.ChildValues['City'];   txtObjAddress := sObj.ChildValues['Street']; end;

Что я делаю не так? Чую, что дело в переменной nObj, которая является лишь ссылкой на часть "байт" в структуре iObjs (TXMLDocument),и по факту каждый поток пытается оперировать с одним и тем же TXMLDocument.