anchor.diff:  
   procedure TfmKeyInput.FormShow(Sender: TObject);
   begin
  +  Localize;
     DoForm_ScaleAuto(Self);
     UpdateFormOnTop(Self);
   end;
  
positive.code:   if not FileExists(fn) then exit;
    ini:= TIniFile.Create(fn);
    try
      with F do Caption:= ini.ReadString(section, '_', Caption);
      with F.ButtonPanel1.OKButton do Caption:= msgButtonOk;
      with F.ButtonPanel1.CancelButton do Caption:= msgButtonCancel;
      with F.PanelPress do Caption:= ini.ReadString(section, 'wait', Caption);
    finally
      FreeAndNil(ini);
    end;
  end;
  
  
  {$R *.lfm}
  
  function DoDialogHotkeyInput(ATitle: string): string;
  var
    Form: TfmKeyInput;
  begin
    Result:= '';
    Form:= TfmKeyInput.Create(nil);
    try
      DoLocalize_FormKeyInput(Form);
      if ATitle<>'' then
        Form.Caption:= ATitle;
      if Form.ShowModal=mrOk then
        Result:= Form.FHotkey;
    finally
      FreeAndNil(Form);
    end;
  end;
  
  { TfmKeyInput }
  
  procedure TfmKeyInput.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
  
negative.code: 
  implementation
  
  {$R *.lfm}
  
  function DoDialogHotkeyInput(ATitle: string): string;
  var
    Form: TfmKeyInput;
  begin
    Result:= '';
    Form:= TfmKeyInput.Create(nil);
    try
      if ATitle<>'' then
        Form.Caption:= ATitle;
      if Form.ShowModal=mrOk then
        Result:= Form.FHotkey;
    finally
      FreeAndNil(Form);
    end;
  end;
  
  { TfmKeyInput }
  
  procedure TfmKeyInput.Localize;
  const
    section = 'd_keys';
  var
  