anchor.diff:      procedure FormShow(Sender: TObject);
     private
       { private declarations }
  +    procedure Localize;
     public
       { public declarations }
       FHotkey: string;
  
positive.code: 
  procedure TfmKeyInput.FormShow(Sender: TObject);
  begin
    DoForm_ScaleAuto(Self);
    UpdateFormOnTop(Self);
  end;
  
negative.code:   if not FileExists(fn) then exit;
    ini:= TIniFile.Create(fn);
    try
      Caption:= ini.ReadString(section, '_', Caption);
      with ButtonPanel1.OKButton do Caption:= msgButtonOk;
      with ButtonPanel1.CancelButton do Caption:= msgButtonCancel;
      with PanelPress do Caption:= ini.ReadString(section, 'wait', Caption);
    finally
      FreeAndNil(ini);
    end;
  end;
  
  procedure TfmKeyInput.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
  