anchor.diff:    memImages.Text := '';
   end;
   
  +procedure TMainForm.btnConvertClicked(Sender: TObject);
  +begin
  +  memImages.BeginUpdate;
  +  try
  +    memImages.Text := memImages.Text + ConvertImage(FilenameEdit1.FileName);
  +  finally
  +    memImages.EndUpdate;
  +  end;
  +end;
  +
   procedure TMainForm.AfterCreate;
   begin
     {%region 'Auto-generated GUI code' -fold}
  
positive.code:     procedure MemoDragDrop(Sender, Source: TObject; X, Y: integer; AData: variant);
      function ConvertImage(const AFileName: string): string;
      procedure btnClearClicked(Sender: TObject);
    public
      procedure AfterCreate; override;
    end;
  
negative.code:   begin
      Name := 'Button1';
      SetPosition(396, 44, 80, 24);
      Text := 'Convert';
      FontDesc := '#Label1';
      Hint := '';
      ImageName := '';
      TabOrder := 4;
      OnClick := @btnConvertClicked;
    end;
  
    pmFile := TfpgPopupMenu.Create(self);
  