Draw the stringgrid zebra line

Procedure tformrule. stringgrid1drawcell (Sender: tobject; ACOl,
Arow: integer; rect: trect; State: tgriddrawstate );
Begin
If (Arow = 0) or (ACOl = 0) then
Exit;
With sender as tstringgrid do // zebra crossing Effect
With canvas do
Begin
If (Arow mod 2 = 0) then
Begin
Brush. Color: = clmoneygreen;
Font. Color: = clblack;
Fillrect (rect );
Textout (rect. Left + 2, rect. Top + 2, cells [ACOl, Arow]);
End else begin
Brush. Color: = clwindow;
Font. Color: = clblack;
Fillrect (rect );
Textout (rect. Left + 2, rect. Top + 2, cells [ACOl, Arow]);
End;
End;
End;