anchor.diff:      procedure btnViewUnicodeClick(Sender: TObject);
       procedure FormShow(Sender: TObject);
     private
  +    procedure Localize;
     public
     end;
   
  
positive.code: 
  procedure TfmConfirmBinary.FormShow(Sender: TObject);
  begin
    ClientHeight:= btnCancel.Top+btnCancel.Height+10;
  end;
  
  end.
  
negative.code: begin
    F:= TfmConfirmBinary.Create(nil);
    try
      if ATooBig then
        S:= MsgFileTooBig
      else
  