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...