Funciona perfectamente, sólo que en lugar de
B (?¿?¿) que tienes aquí (que no se de dónde sale):
Código Delphi
[-]
WriteText(StringGrid, StringGrid.Canvas, B, S, Formats[Alignment]);
debes poner el parámetro
Rect.
Código Delphi
[-]
WriteText(StringGrid, StringGrid.Canvas, Rect, S, Formats[Alignment]);