lo he puesto asi:
procedure Tfalq.sgartDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (arow div 2) = 0 then
sgart.Canvas.Brush.Color:=clred
else
sgart.Canvas.Brush.Color:=clblue;
end;
y nada de nada. lo he probado con el brush y con el font y sigue sin funcionarme.
gracias.