[Lotles]

Подскажите почему код не работает ?

Код:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
rect:TRect;
begin
Rect:=StringGrid1.CellRect(ACol,ARow);
StringGrid1.Canvas.Brush.Color:=clred;
StringGrid1.Canvas.FillRect(Rect);
end;

Admin: Не забываем про оформление кода!