anchor.diff:  end;
   
   procedure TfpgBaseEdit.DeleteSelection;
  -begin
  +var
  +  prevval: TfpgString;
  +begin
  +  prevval := FText;
     if FSelOffset <> 0 then
     begin
       if FSelOffset < 0 then
  
positive.code:     FSelOffset := 0;
      FSelStart := FCursorPos;
    end;
  end;
  
  procedure TfpgBaseEdit.DoCopy;
  
negative.code: procedure TfpgBaseEdit.DoPaste;
  var
    s: string;
    prevval: TfpgString;
  begin
    prevval := FText;
    DeleteSelection;
    s := fpgClipboard.Text;
  
  