Interfaces in Delphi

[squetk]

Hallo,

ich experimentiere zur Zeit mit der Implementation von Schnittstellen unter Delphi. Hier laufen offensichtlich Dinge im Hintergrund ab, die ich nicht verstehe. Ein Beispiel:

Delphi-Quellcode:

  IMyInterface = interface(IInterface)
  ['{EAB5845A-EB98-4BA4-A36A-CC7092973EA6}']
    function GetString : string;
  end;

  TMyImpl = class(TInterfacedObject, IMyInterface)
  public
    function GetString : string;
  end;

  TMyImpl2 = class(TInterfacedObject, IMyInterface)
  private
    function PrivateString : string;
  public
    function GetString : string;
  end;

{ TMyImpl }

function TMyImpl.GetString: string;
begin
  Result := 'MyImpl';
end;

{ TMyImpl2 }

function TMyImpl2.PrivateString: string;
begin
  Result := ' MyImpl2.PrivateString';
end;

function TMyImpl2.GetString: string;
begin
  Result := 'MyImpl2' + PrivateString;
end;

// Testmethode
procedure TForm1.Button1Click(Sender: TObject);
var MyImpl2 : TMyImpl2;
    IMyIntf : IMyInterface;
begin
  IMyIntf := TMyImpl.Create;
  Label1.Caption := IMyIntf.GetString + ' ' + MyImpl2.GetString;
end;

Nach meinem Verständnis sollte es in der Zeile, in der auf MyImpl2 zugegriffen wird, eine saftige Schutzverletzung geben. Es wird ja schließlich nirgendwo eine Instanz erzeugt. Dem ist aber nicht so (Delphi 7 Prof).
Hat jemand eine Erklärung hierfür?