Vielleicht geht das ja.
Allerdings weiss ich nicht, ab wann dieses Compiler-Konstrukt funktioniert, hab nur D2010 zur Hand.
Delphi-Quellcode:
function AcVCLActive: Boolean;
begin
{$IF Defined(TApplication)}
Result := True;
{$ELSE}
Result := False;
{$IFEND}
end;