Ecxel через Deiphi (Find)

[Dus-F]

Привет. Создаю эту тему потамучто... ну воще(((

Пишу программу редактирования документов в Ecxele (не буду углубляться). Одна из ее задач, найти нужную ячейку по содержащемуся в ней слову (с учетом регистра букв).
Алгоритм такой: Найти в заданном диапазоне ВСЕ совпадения и показать содержимое найденных ячеек (с этим проблем почти нет, но не в этом дело). Если не чего не найдено, выводится сообщенные. С последним проблема. Если совпадений с поиском нет. Уже в запущенной программе вылетает системное сообщение от Debugger Exception Notification:
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00455F6B in module 'Project1.exe'. Read of address 00000000'. Process stoped. Use Step or Run to continue.
Ииии всё!...

Var
  Range, E :Variant;
  FirstAddress: string;

...\\ здесь программа открывает нужный файл.xls

try
  VarClear(Range);
  Range := E.Range['A25:G178'].Find(What:='Азоeта ',    
                                               LookIn:=xlValues,
                                               SearchDirection:=xlNext,                 
                                               MatchCase:=True);
  if not VarIsEmpty(Range)
    then
      begin
        FirstAddress := Range.Address;
        ShowMessage(Range.Value);
        ShowMessage(FirstAddress);
        repeat
          Range.Interior.ColorIndex := 37;
          Range := E.Range['A25:G178'].FindNext(After := Range);
          ShowMessage(Range.Value);
          ShowMessage(Range.Address);
        until FirstAddress = Range.Address;
      end
    else
      begin
        Showmessage('ничего не найдено');
      end;
  except
    raise Exception.Create('??????');
  end;

...//здесь продолжение программы.

Спасибо, заранее.

[Dus-F]

Забыл написать. После ошибки выделяет вот эту строчку:
FirstAddress := Range.Address;

[Dus-F]

Решение найдено!!!

VarIsClear() возвращает True если адрес поля $00000000.

Т.е. нужно заменить: if not VarIsEmpty(Range) на if not VarIsClear(Range).