Здравствуйте! Прошу помощи в следующем вопросе:

Подскажите что в коде не правильно.
По задумке должен грузить в цикле данные из XML файлов в Excel. Грузит только первую строчку, а дальше вываливает Access violation.

[code]
procedure TForm1.LoadXmlBtnClick(Sender: TObject);
var
searchresult : TSearchRec;
i : SmallInt;
text: string;
xml: TXMLDocument;
XL: Variant;
begin
XL := CreateOLEObject('Excel.Application');
XL.WorkBooks.Open(ExtractFilePath(Application.ExeName)+ 'book.xlsx');
XL.visible := true;
i := 0...