anchor.diff:                else
                   FEditing:= False;
             end;
  +          SetFocus;
             if FEditing then
  -          begin
  -            SetFocus;
  -            SetEditCell;
  -          end
  -          else
  -            Consumed:= True;
  +            SetEditCell(TfpgStringGrid(Self));
           end;
         KeyTab:
           begin
  
positive.code:           FCellCalendar.Visible := False;
            case FEditWay of
              edNone:
                begin
                FEditing:= False;
                SetFocus;
                end;
              edColumn:
                if FocusCol < Pred(ColumnCount) then
                  FocusCol := FocusCol + 1
  
negative.code:             if FocusCol < Pred(ColumnCount) then
                FocusCol := FocusCol + 1;
            FEditing := False;
            SetFocus;
          end;
        KeyEscape:
          begin
            FCellEditCombo.Text := '';
            FCellEditCombo.Visible := False;
            FEditing := False;
            SetFocus;
          end;
      end;
  end;
  