forma de cambiar el color de una celda

[anubis]

Buenas, revisando para poder cambiar el color de una celda de un stringgrid(aunque uso xstringgrid), desde codigo y la que yo necesite, he llegado a esto:

Código Delphi [-]
procedure TForm1.calendarioDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 calendario.canvas.brush.color := clGreen;

calendario.Canvas.FillRect(rect);
calendario.canvas.TextOut(Rect.Left,Rect.Top,calendario.Cells[ACol,ARow]);

end;

el problema es que me los cambia a todos, tambien he llegado a poner

Código Delphi [-]
calendario.col:=5
calendario.row:=5;
calendario.font.Style:=[fsbold];
 calendario.Canvas.Brush.Color:= clRed;

se que me hace falta poner calendario.canvas.fillrect(rect), pero la rect no se que parametros poner.

Tampoco puedo poner la letra en bold.

Alguna idea de poder manipular los colores de cada celda a antojo?.

ya estuve revisando los post relacionados pero no dan respuesta a lo que busco.

gracias