Проблемы с TXMLDocument

[ipdd]

Обработчик нажатия кнопки Буттон1

procedure TForm1.Button1Click(Sender: TObject);
var A: TXMLDocument;
begin
A:=TXMLDocument.Create(nil);
if OpenDialog1.Execute then
begin
A.LoadFromFile(Opendialog1.FileName );
A.Active:=true;
Edit1.Text:=A.DocumentElement.Child Nodes.Nodes['COMPANYNAME'].ChildNodes.Nodes['fullname'].Text;
A.Active:=false;
A.Destroy;
end;
end;

выдает следующую ошибку:

"Project Project1.exe raised exception class EAccessViolation at adress 0000316D. Read of adress 0000316D. Process stopped"

при прохождении выделенного жирным участка приведенного выше кода.
Что это может быть?