anchor.diff:    with Label2 do
     begin
       Name := 'Label2';
  -    SetPosition(312, 32, 288, 16);
  +    SetPosition(316, 40, 288, 16);
       FontDesc := '#Label1';
       Hint := '';
       Text := 'Label';
  
positive.code:   with tree do
    begin
      Name := 'tree';
      SetPosition(8, 8, 284, 184);
      Anchors := [anLeft,anTop,anBottom];
      FontDesc := '#Label1';
      Hint := '';
      ScrollWheelDelta := 30;
      ShowImages := True;
      TabOrder := 1;
      ImageList := FImagelist;
      OnChange  := @TreeNodeChanged;
    end;
  
negative.code:   // reset values
    FSrcNode := nil;
    FDestnode := nil;
    lblSource.Text := cEmpty;
    lblDestination.Text := cEmpty;
  
    TreeNodeChanged(nil);
  end;
  
  procedure TMainForm.cbShowImagesChange(Sender: TObject);
  