test.pas

    m_row:=0;
    //FDataSet.DisableControls();
    FGrid.DataSource.DataSet.First();
    cellParam := TColCellParamsEh.Create();
    while not FGrid.DataSource.DataSet.Eof do begin
        for m_col := 1 to FGrid.Columns.Count-1 do begin

            with cellParam do begin
                Row             := m_row;
                Col             := m_col;
                State           := [];
                Font            := FGrid.Columns[m_col].Font;
                Background      := FGrid.Columns[m_col].Color;
                Alignment       := FGrid.Columns[m_col].Alignment;
                ImageIndex      := FGrid.Columns[m_col].GetImageIndex;
                Text            := FGrid.Columns[m_col].DisplayText;
                //CheckboxState   := FGrid.Columns[m_col].CheckboxState;
            end;

            FGrid.Columns[m_col].GetColCellParams(false, cellParam);
            if assigned(FGrid.Columns[m_col].OnGetCellParams) then
                FGrid.Columns[m_col].OnGetCellParams(FGrid.Columns[m_col], false, cellParam);

            if cellParam.Background >= 0 then begin
                Report.Range[
                    AddresColExcel(m_col-1) + inttostr(m_row+j),
                    AddresColExcel(m_col-1) + inttostr(m_row+j)
                    ].Interior.Color := cellParam.Background;
            end;

        end;
        inc(m_row);
        FGrid.DataSource.DataSet.Next();
    end;