quantum grid ve satır renkleri

[akipek]

Arama yaptım ve bulduklarımı uygulamadım ama sorunum hala çözülemedi. bir quantum gridiim var delphi 6.0 da. değerlendirme notu 70 den buyuk ise yazıyı kırmızı değilse beyaz göstermek istiyorum. ama oklarla kayıtlar üzerinde hareket edince renkler kafasına göre değişiyor aşağıdaki kodda hatam nedir acaba?

CustomDrawCell'e

label1.Caption := qryGrid['Deger'];
if trim(qryGrid['Deger']) > 50 then
begin
ACanvas.Font.Color := clRed;
ACanvas.Brush.Color := clYellow;
end
else
begin
ACanvas.Font.Color := clYellow;
ACanvas.Brush.Color := clBlue;
end; end;

[Glen]

OnGetContentStyle'a

Style repositary ekliyosnu ondan sonra da..
if sart then
Astyle := Style1

Suan kurlu makinada delphi yok o yuzden bisey yazamiyorum eve gelince kodu kontrol edip tekrar yazarim