Freigabe von übergebenen Interface-Instanzen

[Mavarik]

Wenn ich keine Factory für die Klasse habe, mache ich es einfach so...

Delphi-Quellcode:

type
  TMyInterface = class(TInterfacedObject, IMyInterface)
  private
    procedure DoSomething;
  public
    destructor Destroy; override;
    Class Function Construct : IMyInterface;
  end;

implementation


procedure TForm1.Button1Click(Sender: TObject);
begin
  Machwas(TMyInterface.Construct);
end;

Und läuft...