Grid hücre renklendirme sorunu

[veski]

procedure TForm1.grdmatrix1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
if grdmatrix.Cells[ACol,ARow]='1' then
begin
grdmatrix.Canvas.Brush.Color:=clRed;
grdmatrix.Canvas.FillRect(rect);
end;
end;

Komutlarını kullanarak değeri 1 olan hücreleri renkelndirmek istiyorum. Bu işlemi gerçekleştiriyor. Ancak renklendirme işlemini hücrenin tamamına değil sağ kenarına yapıyor. Yani hücrenin 1/4 lük kısmını renklendiriyor. Sorun ne olabilir?

[SimaWB]

Yazdığınız kod hücrenin tamamını renklendirir. Başka bir yerde sorununuz olabilir.