[BlackEric]

Код:

procedure TForm1.DrawGrid1Click(Sender: TObject);
  var    rect:TRect;
  begin 
   rect := DrawGrid1.CellRect(DrawGrid1.Col, DrawGrid1.Row);
    DrawGrid1.Canvas.Brush.Color := clRed;
    DrawGrid1.Canvas.FillRect(rect);
  end;