if (Grilla.ColWidths[j] < Grilla.Canvas.TextWidth(Grilla.Cells[j,i])) then Grilla.ColWidths[j] := Grilla.Canvas.TextWidth(Grilla.Cells[j,i]);