anchor.diff:  procedure TProjectOptionsForm.grdCompilerDirsKeyPressed(Sender: TObject;
     var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
   begin
  +  if (KeyCode = keyInsert) and (ssCtrl in ShiftState) then
  +  begin
  +    TfpgStringGrid(Sender).RowCount := TfpgStringGrid(Sender).RowCount + 1;
  +    Consumed := True;
  +    Exit;
  +  end;
  +
     if TfpgStringGrid(Sender).FocusCol < 10 then
     begin
       if (KeyCode = keySpace) then
  +    begin
         grdCompilerDirsClicked(Sender);
  +      Consumed := True;
  +    end;
     end
     else if TfpgStringGrid(Sender).FocusCol = 10 then
     begin
  
positive.code:     begin
        // we need to edit the cell contents
        SetupCellEdit(TfpgStringGrid(Sender));
      end;
    end;
  end;
  
negative.code: procedure TProjectOptionsForm.grdCompilerMakeOptionsKeyPressed(Sender: TObject;
    var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
  begin
    if (KeyCode = keyInsert) and (ssCtrl in ShiftState) then
    begin
      TfpgStringGrid(Sender).RowCount := TfpgStringGrid(Sender).RowCount + 1;
      Consumed := True;
      Exit;
    end;
  
    if TfpgStringGrid(Sender).FocusCol < 6 then
    begin
      if (KeyCode = keySpace) then
      begin
        grdCompilerMakeOptionsClicked(Sender);
        Consumed := True;
      end;
    end
    else if TfpgStringGrid(Sender).FocusCol = 6 then
    begin
  