procedure THIMST_DragRowManager.RowData;
begin
  dragData := Value;
  sControl.LVDelete(oldIndex);
end;

  if Assigned(PData(sControl.LVItemData[oldindex])) then
  begin
    FreeData(PData(sControl.LVItemData[oldindex]));
    Dispose(PData(sControl.LVItemData[oldindex]));
  end;