So jetzt habe ich es hinbekommen.
Der Server wird mit nachfolgender Anweisung initialisiert.
Delphi-Quellcode:
TTypedComObjectFactory.Create(ComServer, TMyComServer, Class_MyComServer,
ciMultiInstance , tmFree );
tmFree erzeugt automatisch einen neuen Thread.
Das Teil verhält sich wunschgemäß.
Beim Starten des ersten Client wird eine Instanz erzeugt.
Beim Starten weiterer Clients ist nur eine Instanz vorhanden.
Mit dem Schließen des letzten Client, wird der Server geschlossen.
Gruß Peter