procedure THIListBox._work_doEnsureVisible;
begin
   Control.Perform(LB_SETTOPINDEX, ToInteger(_Data), 0);
end;