Expired passwords: Initialize form font, and trigger actual string translations

source/change_password.dfm

@@ -17,6 +17,7 @@ object frmPasswordChange: TfrmPasswordChange
   Font.Style = []
   OldCreateOrder = False
   Position = poMainFormCenter
+  OnCreate = FormCreate
   OnShow = FormShow
   DesignSize = (
     456

source/change_password.pas

@@ -37,6 +37,7 @@ type
     procedure menuPasswordClick(Sender: TObject);
     procedure menuPasswordInsert(Sender: TObject);
     procedure btnCopyToClipboardClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     { Private-Deklarationen }
     procedure CheckPasswordStrength;
@@ -54,6 +55,13 @@ uses main, helpers;
 {$R *.dfm}
 
 
+procedure TfrmPasswordChange.FormCreate(Sender: TObject);
+begin
+  TranslateComponent(Self);
+  InheritFont(Font);
+end;
+
+
 procedure TfrmPasswordChange.FormShow(Sender: TObject);
 begin
   // Manually trigger change event on password box