procedure THIWinList._work_doEnsureVisible; begin Control.LVMakeVisible(ToInteger(_Data), False);end;