TListView OwnerData OnData事件是否泄漏内存？

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if Item.Index < DataList.Count then
  begin
    Item.Caption := DataList[Item.Index].Caption;
    Item.SubItems.Add(DataList[Item.Index].SubItem);
  end;
end;

procedure TForm1.LoadData;
var
  i: Integer;
  ListItem: TListItem;
begin
  ListView1.Items.Clear;
  for i := 0 to DataList.Count - 1 do
  begin
    ListItem := ListView1.Items.Add;
    ListItem.Data := DataList[i];
  end;
end;

procedure TForm1.ClearData;
var
  i: Integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do
    ListView1.Items[i].Free;
  ListView1.Items.Clear;
end;