anchor.diff:      TabOrder := 1;
       OnClick := @grdCompilerMakeOptionsClicked;
       OnDrawCell := @grdCompilerMakeOptionsDrawCell;
  -    OnKeyPress :=@grdCompilerMakeOptionsKeyPressed;
  +    OnKeyPress := @grdCompilerMakeOptionsKeyPressed;
     end;
   
     grdCompilerDirs := TfpgStringGrid.Create(TabSheet2);
  
positive.code:   for i := 0 to GProject.MakeOptions.Count-1 do
    begin
      grdCompilerMakeOptions.Cells[6, i] := GProject.MakeOptions[i];
    end;
  
    for i := 0 to GProject.UnitDirs.Count-1 do
    begin
      grdCompilerDirs.Cells[10, i] := GProject.UnitDirs[i];
    end;
  
    grdCompilerMakeOptions.Cells[0, 0] := cCheck;
    grdCompilerMakeOptions.Cells[1, 0] := cCheck;
    grdCompilerMakeOptions.Cells[2, 0] := cCheck;
  
negative.code:     FontDesc := '#Grid';
      HeaderFontDesc := '#GridHeader';
      Hint := '';
      RowCount := 0;
      RowSelect := False;
      TabOrder := 1;
      OnClick := @grdCompilerDirsClicked;
      OnDrawCell := @grdCompilerDirsDrawCell;
      OnKeyPress := @grdCompilerDirsKeyPressed;
    end;
  
    Label11 := TfpgLabel.Create(TabSheet2);
  