Многострочный текст в Компоненте TMStringGrid у меня не фиксируется

[MartGG]

Пользуюсь Компонентом TMStringGrid
Сформировал таблицу, чтобы потом скопировать в Word,
заполняю ячейку многострочным текстом. Всё ок.
Но только выхожу с ячейки и текст выстраивается в одну строчку.
Высоту ячейки формирую так:

type
  TFormZatrat = class(TForm)
    MSGz: TMStringGrid;

procedure TFormZatrat.MSGzKeyPress(Sender: TObject; var Key: Char);
var
S : string;
hh :byte;
begin
  S := MSGZ.Cells[GridRect.Left, GridRect.Top];
  with MSGZ do
  begin
  hh := Font.Size;
  if (Canvas.TextWidth(Cells[GridRect.Left, GridRect.Top]) +8)
                 div ColWidths[GridRect.Left] <>S_Len then
    begin

     S_Len :=(Canvas.TextWidth(Cells[GridRect.Left, GridRect.Top]) +9)
                 div ColWidths[GridRect.Left];
     RowHeights[GridRect.Top] :=
          RowHeights[GridRect.Top] +Font.Size+6; // высота строки
    end;
  end;
end;