anchor.diff:  
   procedure TfmConfirmBinary.FormShow(Sender: TObject);
   begin
  +  Localize;
     ClientHeight:= btnCancel.Top+btnCancel.Height+10;
  +end;
  +
  +procedure TfmConfirmBinary.Localize;
  +const
  +  section = 'd_cfm_op';
  +var
  +  ini: TIniFile;
  +  fn: string;
  +begin
  +  fn:= GetAppLangFilename;
  +  if not FileExists(fn) then exit;
  +  ini:= TIniFile.Create(fn);
  +  try
  +    //with F do Caption:= ini.ReadString(section, '_', Caption);
  +    with btnEdit do Caption:= ini.ReadString(section, 'edit', Caption);
  +    with btnViewText do Caption:= ini.ReadString(section, 'text', Caption);
  +    with btnViewBinary do Caption:= ini.ReadString(section, 'bin', Caption);
  +    with btnViewHex do Caption:= ini.ReadString(section, 'hex', Caption);
  +    with btnViewUnicode do Caption:= ini.ReadString(section, 'uni', Caption);
  +    with btnCancel do Caption:= msgButtonCancel;
  +    MsgFileNotText:= ini.ReadString(section, 'ntxt', MsgFileNotText);
  +    MsgFileTooBig:= ini.ReadString(section, 'big', MsgFileTooBig);
  +  finally
  +    FreeAndNil(ini);
  +  end;
   end;
   
   end.
  
positive.code:   MsgFileNotText: string = 'File is maybe not text:';
    MsgFileTooBig: string = 'File is too big to edit:';
  
  procedure DoLocalize_FormConfirmBinary(F: TfmConfirmBinary);
  const
    section = 'd_cfm_op';
  var
    ini: TIniFile;
    fn: string;
  begin
    fn:= GetAppLangFilename;
    if not FileExists(fn) then exit;
    ini:= TIniFile.Create(fn);
    try
      //with F do Caption:= ini.ReadString(section, '_', Caption);
      with F.btnEdit do Caption:= ini.ReadString(section, 'edit', Caption);
      with F.btnViewText do Caption:= ini.ReadString(section, 'text', Caption);
      with F.btnViewBinary do Caption:= ini.ReadString(section, 'bin', Caption);
      with F.btnViewHex do Caption:= ini.ReadString(section, 'hex', Caption);
      with F.btnViewUnicode do Caption:= ini.ReadString(section, 'uni', Caption);
      with F.btnCancel do Caption:= msgButtonCancel;
      with F do MsgFileNotText:= ini.ReadString(section, 'ntxt', MsgFileNotText);
      with F do MsgFileTooBig:= ini.ReadString(section, 'big', MsgFileTooBig);
    finally
      FreeAndNil(ini);
    end;
  end;
  
  function DoDialogConfirmBinaryFile(const AFilename: string; ATooBig: boolean): TAppConfirmBinary;
  var
    F: TfmConfirmBinary;
  
negative.code: begin
    F:= TfmConfirmBinary.Create(nil);
    try
      if ATooBig then
        S:= MsgFileTooBig
      else
  