anchor.diff:  destructor TOptionObj.Destroy;
   begin
     Attributes.Free;
  -  inherited;
  +  inherited Destroy;
   end;
   
   function ThtOptionStringList.GetValue(Index: integer): ThtString;
  
positive.code: var
    ARect: TRect;
  begin
    inherited;
    if IsCopy then
    begin
      ARect := Rect(X1, Y1, X1 + FControl.Width, Y1 + FControl.Height);
  
negative.code:     FControl.Parent := nil;
      FControl.Free;
    end;
    inherited Destroy;
  end;
  
  procedure TEditFormControlObj.DoOnChange;
  