Supports(..) liefert Referenz welche AV auslöst

[himitsu]

Zitat:

Delphi-Quellcode:

function TComponent._Release: Integer;
begin
  if FVCLComObject = nil then
    Result := -1   // -1 indicates no reference counting is taking place
  else
    Result := IVCLComObject(FVCLComObject)._Release;
end;

Nein, TComponent wird niemals über eine Interface-Referenz freigegeben.
TComponent wird vorwiegend innerhalb der VCL verwendet und Diese gibt ausschließlich ihre Instanzen über Free frei,
da es z.B. keine Weak-Referenzen für Objekte gibt, welche bei Freigabe auf nil gesetzt werden.

Es wird maximal das in TComponent gekapselte Interface freigegeben, wenn RefCount auf 0 fällt.
z.B. bei sowas wie TXMLDokument TVCLAutoObject oder TActiveFormControl (spezielles TActiveXControl), wo die eigentliche Funktion in ein Interface weitergeleitet wird. (siehe IVCLComObject)