anchor.diff:    HasChanged: boolean;
   begin
     {$IFDEF gDEBUG}
  -  writeln('>> TfpgBaseTextEdit.HandleKeyPress');
  +  SendMethodEnter('TfpgBaseTextEdit.HandleKeyPress')
     {$ENDIF}
     CaretScroll := False;
   //  inherited HandleKeyPress(keycode, shiftstate, consumed);
  
positive.code: 
    Invalidate;
    {$IFDEF gDEBUG}
    writeln('<< TfpgBaseTextEdit.HandleKeyPress');
    {$ENDIF}
  end;
  
  procedure TfpgBaseTextEdit.HandleKeyChar(var AText: TfpgChar;
    var shiftstate: TShiftState; var consumed: boolean);
  var
    SLine: TfpgString;
    Fill: Integer;
  
negative.code:   fpgPostMessage(self, FVScrollBar, FPGM_SCROLL, msg);
  end;
  
  procedure TfpgBaseTextEdit.HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean);
  var
    SLine: TfpgString;
    AddS: TfpgString;
  