anchor.diff:  const
     cMin = 10;
   begin
  +  if not IsText then exit;
     FSplitPos:= AValue;
   
     if FSplitHorz then
  
positive.code: var
    al: TAlign;
  begin
    FSplitHorz:= AValue;
  
    if FSplitHorz then al:= alBottom else al:= alRight;
  
negative.code: 
  procedure TEditorFrame.SetSplitted(AValue: boolean);
  begin
    if not IsText then exit;
  
    FSplitted:= AValue;
    Ed2.Visible:= AValue;
    Splitter.Visible:= AValue;
  