//---------------------------------------------------------------------------
void __fastcall TFormReg::GridListDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
    if (!ARow || !ACol)
        return;

    TStringGrid *StrGrid = (TStringGrid *)Sender;

    StrGrid->Canvas->Brush->Color = [원하는색];
    StrGrid->Canvas->FillRect( Rect);
    if (State.Contains( gdFocused))
        StrGrid->Canvas->DrawFocusRect( Rect);
}