Изменение ширины TTextObjectAppearance

[Котэ]

Добрый день .

Подскажите как у элемента TTextObjectAppearance менять ширину текста , при изменение ориентации телефона.

Пробую так 

procedure TfrmM.MLVResize(Sender: TObject);
var
  t: TListItemText;
  i: Integer;
  j: Integer;
begin
  if frmM.ClientHeight = 640 then
    i := 290
  else
    i := 400;
  MLV.BeginUpdate;
  for j := 0 to MLV.ItemCount - 1 do
  begin
    t := MLV.Items[j].Objects.FindObjectT<TListItemText>('Klient');
    t.Width := i;
  end;
  MLV.EndUpdate;
end;

Ничего не происходит. Ширина остается такая же.

[krapotkin]

а разве не в OnUpdateObjects/OnUpdatingObjects это должно происходить ?

[Котэ]

Да действительно, там туда перенес код, он начал работать.