Интерфейс объявлен без GUID.

Номер: 
31
Тип: 
Warning

  Если объявление интерфейса не содержит GUID, вы не сможете использовать его в вызовах функции Supports и операторе as.

Примеры: 
IFoo = interface
  procedure DoWork; 
end;