anchor.diff:  procedure TfpgBaseEdit.DoPaste;
   var
     s: string;
  -begin
  +  prevval: TfpgString;
  +begin
  +  prevval := FText;
     DeleteSelection;
     s := fpgClipboard.Text;
   
  
positive.code:   FSelStart  := FCursorPos;
    Adjust;
    Repaint;
  end;
  
  procedure TfpgBaseEdit.SetAutoSelect(const AValue: Boolean);
  
negative.code: procedure TfpgBaseEdit.SetText(const AValue: string);
  var
    s: string;
    prevval: TfpgString;
  begin
    if FText = AValue then
      Exit;
    prevval := FText;
  
    if FMaxLength <> 0 then
    begin
  