Dbgrid 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 Delphi XE2, win7 64 bit platformunda, 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. Ancak aynı kodları aynı makinada delphi 6 ile çalıştırdığımda hücrenin tamamını renklendiriyor. Sorun ne olabilir?

Not: Aynı kodları aynı makinada delphi 6 ile çalıştırdığımda hücrenin tamamını renklendiriyor