// TextAlign = Left
if STextAlign = taLeft then begin
k := wn * i + j
end
else
// TextAlign = Right
if STextAlign = taRight then begin
k := wn*i+j+(Width-(wn)*FDigits)
end
else begin
// TextAlign = Center
k := wn*i+j+(Width-(wn)*FDigits)div 2;