DBGrid de 1 den fazla sütünları renklendirme

[sahinben]

Merhaba Arkadaşlar,

OnDrawColumncell eventinde 1 den fazla sütünü nasıl renklendirebilirim
Limkteki Resim de.5 sütündan başlamak istiyorum ve 52 haftayı renklendirmem gerekiyor ama sadece X yazdığım zaman Yeşile dönmesi. Cell Boş olursa yeşil renk olmayacak
Tşk ederim .https://www.facebook.com/photo.php?fbid ... =1&theater

[sahinben]

Aradığım kod işlemi yapıyor. Belki birisine lazım olur

procedure TForm14.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);

var
Renk:Tcolor;
Renk1:Tcolor;

begin

begin
if (dbgrid3.datasource.dataset.recno mod 2) =0
then dbgrid3.Canvas.Brush.Color := $00EFDECD
else dbgrid3.Canvas.Brush.Color := clsilver;
dbgrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;
Renk:=dbgrid3.Canvas.Brush.color;
If Column.fieldname='1' then
If (Column.Field.Asstring ='X') then
Begin
dbgrid3.Canvas.Brush.Color:=Clgreen;
dbgrid3.DefaultDrawColumnCell(Rect,Datacol,column, state);
dbgrid3.Canvas.Brush.Color:=Renk;
End;