anchor.diff:  
   implementation
   
  -procedure DoLocalize_FormKeyInput(F: TfmKeyInput);
  +{$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
  
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: 
  procedure TfmKeyInput.FormShow(Sender: TObject);
  begin
    Localize;
    DoForm_ScaleAuto(Self);
    UpdateFormOnTop(Self);
  end;
  