Или чем заменить строки:
p[i] := p[i-1] + Round(jzStringGrid1.ColWidths[i-1]* kx);
y2 := py + Round((m+2) * jzStringGrid1.RowHeights[1] * ky);
Canvas.TextOut(P[w],py+10,jzStringGrid1.Cells[w,1]);
Все это для вывода на принтер.
Могу дать код целиком.