schedule프로그램을 짜고 있읍니다.
스트링그리드를 이용하여 0행은 요일이 나오고, 1행부터는 날짜가 나옵니다.
오늘의 날짜가 7일일 경우 7일에 해당하는 schedule_grid[0,2]의 색을 노랑색으로 변경하고 싶은데 어려우내요.

<schedule_grid>  
일    월    화    수    목    금    토   1행
      1     2     3     4     5     6    2행
7                                        3행

가계부 프로그램을 응용할려고 하니, 무얼 어떻게 수정해야 할지
procedure Tschedule_show.schedule_gridDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
    Ls_mt_kbn : string;
begin
    Ls_mt_kbn := schedule_grid.Cells[3,ARow];
    if (ACol >= schedule_grid.FixedCols) and (ARow >= schedule_grid.FixedRows) then
    with  schedule_grid.Canvas do
    begin
        if Ls_mt_kbn = '전월이월' then
           begin
           font.Color := clRed;
           font.Style := [fsBold];
           end;
     end;
end;