anchor.diff:    fpgClipboard.Text := SelectionText;
   end;
   
  -procedure TfpgBaseEdit.DoPaste;
  +procedure TfpgBaseEdit.DoPaste(const AText: TfpgString);
   var
     s: string;
     prevval: TfpgString;
   begin
     prevval := FText;
     DeleteSelection;
  -  s := fpgClipboard.Text;
  +  s := AText;
   
     if (FMaxLength > 0) then
       if UTF8Length(FText) + UTF8Length(s) > FMaxLength then
  
positive.code:     // function    PointToCharPos(x, y: integer): integer;
      procedure   DeleteSelection;
      procedure   DoCopy;
      procedure   DoPaste;
      procedure   SetAutoSelect(const AValue: Boolean);
      procedure   SetBorderStyle(const AValue: TfpgEditBorderStyle);
      procedure   SetHideSelection(const AValue: Boolean);
  
negative.code: 
  procedure TfpgBaseEdit.PasteFromClipboard;
  begin
    DoPaste(fpgClipboard.Text);
  end;
  
  { TfpgBaseTextEdit }
  