anchor.diff:      keyTab:
           begin
             AddS := '  ';
  -          SendDebug('b: ' + SLine);
             UTF8Insert(AddS, SLine, CaretPos.X);
  -          SendDebug('a: ' + SLine);
             FLines[CaretPos.Y] := SLine;
             CaretPos.X := CaretPos.X + 2;
             FSelStartNo := CaretPos.Y;
  
positive.code:   HasChanged: boolean;
  begin
    {$IFDEF gDEBUG}
    writeln('>> TfpgBaseTextEdit.HandleKeyPress');
    {$ENDIF}
    CaretScroll := False;
  //  inherited HandleKeyPress(keycode, shiftstate, consumed);
  
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;
  