anchor.diff:            else
               if FocusCol < Pred(ColumnCount) then
                 FocusCol := FocusCol + 1;
  -          Consumed := True;
  -        end;
  -      keyLeft:
  -        begin
  -// writeln('keyLeft');
  -        end;
  -      keyRight:
  -        begin
  -// writeln('keyRight');
  -        end;
  -      keyUp:
  -        begin
  -// writeln('keyUp');
  -        end;
  -      keyDown:
  -        begin
  -// writeln('keyDown');
  +          SetFocus;
           end;
       else
         Consumed := False;
  
positive.code:             if FocusCol < Pred(ColumnCount) then
                FocusCol := FocusCol + 1;
            FEditing := False;
            Consumed:= True;
          end;
        KeyEscape:
          begin
            //FCellCalendar.Text := '';
            FCellCalendar.Visible := False;
            FEditing := False;
            Consumed:= True;
          end;
      end;
  end;
  
negative.code:           FCellEditCurrency.Visible := False;
            case FEditWay of
              edNone:
                FEditing:= False;
              edColumn:
                if FocusCol < Pred(ColumnCount) then
                  FocusCol := FocusCol + 1
  