From bbfe5adcc807d938ef035b2974b6f710ee3eff2b Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@durdin.net>
Date: Tue, 1 Dec 2020 10:15:05 +1100
Subject: [PATCH] fix(windows): crash with package online update

Fixes #4005.

The wrong object was being freed which caused an access violation
internally.
---
 .../engine/kmcomapi/processes/keyboard/kpinstallkeyboard.pas  | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/windows/src/engine/kmcomapi/processes/keyboard/kpinstallkeyboard.pas b/windows/src/engine/kmcomapi/processes/keyboard/kpinstallkeyboard.pas
index 470649d995..9dc7404bf4 100644
--- a/windows/src/engine/kmcomapi/processes/keyboard/kpinstallkeyboard.pas
+++ b/windows/src/engine/kmcomapi/processes/keyboard/kpinstallkeyboard.pas
@@ -283,7 +283,7 @@ begin
     kpil.RegisterTip(KeyboardID, BCP47Tag, KeyboardName, Langs[0], IconFileName, '');
     kpil.InstallTip(KeyboardID, BCP47Tag, Langs[0], guid);
   finally
-    Free;
+    kpil.Free;
   end;
 end;
 
@@ -304,7 +304,7 @@ begin
       Result := True;
     end;
   finally
-    Free;
+    kpil.Free;
   end;
 end;