Ich habe eine Lösung gefunden und sie war einfacher als gedacht. Man kommt relativ einfach an die TGUID des Interfaces und das kann man dann für Supports(..) verwenden:
Delphi-Quellcode:
guid := GetTypeData( TypeInfo(T)).Guid;
Supports(virtualInterface,
guid, Result);