diff --git a/packages/fcl-base/src/inc/daemonapp.pp b/packages/fcl-base/src/inc/daemonapp.pp
index 558b780ecc..df68d63fd0 100644
--- a/packages/fcl-base/src/inc/daemonapp.pp
+++ b/packages/fcl-base/src/inc/daemonapp.pp
@@ -669,7 +669,7 @@ end;
 Function TCustomDaemon.UnInstall : Boolean;
 begin
   Result:=True;
-  Application.SysInstallDaemon(Self);
+  Application.SysUnInstallDaemon(Self);
 end;
 
 function TCustomDaemon.HandleCustomCode(ACode: DWord): Boolean;