[zip000]

1) юзай Canvas.TextRect;
2) не проще ли вместо

Код:

if trunc((i) / 2) < (i / 2) then

писать

Код:

if Odd(i) then
........

Т.е. четные строки одним цветом, нечетные другим.
Чтоб закрасить все строки в событии OnCustomDraw дорисовывай пустые стоки.