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

TListView是Delphi中的一个控件，用于显示列表数据。OwnerData属性设置为True时，表示TListView的数据由应用程序自己管理，而不是由控件自动加载和维护。OnData事件是在需要显示列表项时触发，应用程序需要在该事件中提供数据。

关于TListView OwnerData OnData事件是否泄漏内存的问题，一般情况下是不会泄漏内存的。因为在使用OwnerData模式时，应用程序需要自己管理数据的加载和释放，可以通过在OnData事件中动态创建和销毁列表项来控制内存的使用。

在OnData事件中，应用程序需要根据ItemIndex参数提供相应的数据给TListView。如果应用程序在OnData事件中正确地释放了创建的列表项，就不会出现内存泄漏的问题。可以使用Free方法释放列表项对象，确保在不需要使用时及时释放。

以下是一个示例代码，展示了如何在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;

在LoadData过程中，通过循环创建列表项，并将数据对象赋值给列表项的Data属性。在ClearData过程中，通过循环释放列表项对象。这样可以确保在不需要使用时及时释放内存，避免内存泄漏。

总结起来，TListView OwnerData OnData事件不会自动泄漏内存，但需要应用程序在事件中正确地管理数据的加载和释放，以避免内存泄漏的问题。