delphi - 从 TListViewItem PlaceOffset 创建一个新动画不起作用

Question

我TListView在为PlaceOffset. 我该怎么做？

我想改变一个项目的X和位置从YTListView

position.X = -56至position.X = 144

和

position.Y = 16至position.Y = 96

我可以在没有这样的动画的情况下做到这一点：

procedure TForm1.Button1Click(Sender: TObject);
var
  item : TListViewItem;
begin
  ListView1.Items.Clear;
  item := ListView1.Items.Add;
  item.Data['Text1'] := 'Animate Me in postion  x =136 y =256 ';
  //  PlaceOffset.X := 8;
  //  PlaceOffset.Y := 8;
  item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.X := 136;
  item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.Y := 256;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  item : TListViewItem;
begin
  ListView1.Items.Clear;
  item := ListView1.Items.Add;
  item.Data['Text1'] := 'Animate Me in postion  x =8 y =8';
  item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.X := 8;
  item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.Y := 8;
end;

但是我该怎么做呢TFloatAnimation？