Naja dir fehlt die gesamte Mechanik aus TInterfacedObject, die dafür sorgt, dass das Objekt nicht in die Luft fliegt, wenn du während dem Erstellen oder Freigeben implizit die eigene Referenzzählung triggerst.
Außerdem würd ich die Überprüfung vorher machen und nur im positiven Fall ins inherited springen.
Fun fact: Den Cast auf TGUID kannst dir sparen, der Compiler erkennt das auch so.
Ob das nun sicher ist, kann ich dir nicht sagen. Es soll auch Code geben, der nimmt die Abkürzung über GetInterface. Und da würd dein TMyObject das implementieren. Einfachster Fall:
Delphi-Quellcode:
var
i: ISomeInterface;
begin
i := TMyObject.Create;
Writeln(Supports(i, ISomeInterface)); // WAT?!
Das heißt, wenn das QueryInterface dynamisch zur Laufzeit entscheiden soll, dann würd ich das Interface nicht auf der Klasse implementieren, sondern ein Delegat erstellen - oder wenn du mutig genug bist, die Adjustor Thunks für das Interface selbst bauen.