anchor.diff:    begin
       Name := 'Button1';
       SetPosition(396, 44, 80, 24);
  -    Text := 'Button';
  +    Text := 'Convert';
       FontDesc := '#Label1';
       Hint := '';
       ImageName := '';
       TabOrder := 4;
  +    OnClick := @btnConvertClicked;
     end;
   
     pmFile := TfpgPopupMenu.Create(self);
  
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:   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}
  