如何给StringGrid控件加色彩？(50分)

我想给StringGrid控件的某些Cells改变颜色，不知道如何弄。请求帮助
注意不是全部改变色彩，而是只是给其中的某些Cells变色彩。

大侠请出手

TStringGrid有自画的事件啊，
你在自画的事件里判断是哪个
Cells，根据不同的Cells来画
不同的颜色， 细心点就没有
问题。

在这个事件中写代码就行了
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin

end;

自己收藏的，全给你了：
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
vrect:trect;
begin
if (a>0) and (b>0) then
Begin
vRect := StringGrid1.CellRect(a,b);
StringGrid1.Canvas.Font.Color := clRed;
StringGrid1.Canvas.TextRect(vRect,vRect.left+2,vRect.top+1,StringGrid1.Cells[a,b]);
end;

end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
a := ACol;
b := ARow;
end;

多谢

多人接受答案了。