COM Object freigeben

[WizoHulk]

Die Funktion habe ich hin bekommen.

Aber wenn ich meine Application schließe dann wird mein COM server auch mit beendet.
Ich denke ich habe hier noch irgendwas vergessen.


falls es hilft hier mal mein Quellcode

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
   test := CreateOleObject('Application.Updater');
 except
   test := GetActiveOleObject('Application.Updater');
 end;

  test.FTP_Host      := FTPHost.Text;
  test.FTP_User      := FTPUser.Text;
  test.FTP_Passwort  := FTPPasswort.Text;
  test.ClientName    := ClientName.Text;
  test.ClientVersion := ClientVersion.Text;

  test.ClientHandle  := ClientHandle.Text;
  Test.StartServer;
  ComServer.OnLastRelease := self.HandleComServerOnLastRelease;


end;