anchor.diff:  procedure TfpgCustomEdit.HandleKeyPress(var keycode: word;
     var shiftstate: TShiftState; var consumed: boolean);
   var
  -  lpos: integer;
  +//   lpos: integer;
     hasChanged: boolean;
   
     procedure StopSelection;
  
positive.code:     FCursorPos := cp;
      Repaint;
    end;
  end;
  
  procedure TfpgCustomEdit.HandleMouseEnter;
  
negative.code:     constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
      function    SelectionText: string;
      procedure   SelectAll;
    end;
  
  
    TfpgEdit = class(TfpgCustomEdit)
    published
      property    Text;
      property    FontDesc;
  