Проблема с GetObject

[Janger]

Procedure TFirm1.Button1Click(Sender:TObject);
var
Oop: Variant;
L1, l2: integer;
Put: string;
Begin
Put := ExtractFilePath(Application.ExeName)+ 'file.lbx';

Oop := CreateOleObject('brac.Document');

If oop.open(put) then
Begin
L1 := oop.GetTextIndex('Text-1');
Oop.SetText(l1, 'Smak');

L2 := oop.GetObject('Jud');
Oop.SetText(l2, '1200');
End;
End;

=======================
Проблема вот в чем, когда я ищу по тексту, все работает прекрасно, и текст заменяется.
Но! Как только я хочу найти объект по его названию, у меня тут же вылетает ошибка.
Подскажите в чем моя проблема ...
Что я не так делаю?
Я в отчаянии ...

[Janger]

Концовку забыл написать .....

oop.DoPrint(0,'0');
Oop := Unassigned;