anchor.diff:    with memImages do
     begin
       Name := 'memImages';
  -    SetPosition(4, 88, 476, 286);
  -    FontDesc := '#Edit1';
  +    SetPosition(4, 88, 622, 286);
  +    Anchors := [anLeft,anRight,anTop,anBottom];
  +    FontDesc := '#Edit2';
       Hint := '';
       TabOrder := 5;
  +    AcceptDrops := True;
  +    OnDragEnter  := @MemoDragEnter;
  +    OnDragDrop  := @MemoDragDrop;
     end;
   
     Button1 := TfpgButton.Create(self);
  
positive.code: 
  implementation
  
  {@VFD_NEWFORM_IMPL}
  
  procedure TMainForm.miFileQuit(Sender: TObject);
  begin
    Close;
  end;
  
  procedure TMainForm.AfterCreate;
  
negative.code: 
  uses
    SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_memo, fpg_menu,
    fpg_button, fpg_editbtn, fpg_label;
  
  type
  
  