怎么设置StringGrid的各个单元格之间的那个边框的颜色

如何设置StringGrid的各个单元格之间的那个边框的颜色
如题

[解决办法]
在drawcell事件里控制
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
Rect: TRect; State: TGridDrawState); 
begin 
TStringGrid(Sender).Canvas.Pen.Color := clRed; 
TStringGrid(Sender).Canvas.Brush.Style := bsClear; 
TStringGrid(Sender).Canvas.Rectangle(Rect); 
end; 


参考
http://topic.csdn.net/u/20070420/16/583ef8af-538f-4a2a-8670-5e7f882b574e.html