// Вывод строки в зону окна (с) Galkov 
//----------------------------------------------
procedure XXXXXXXXXXX._work_doEnsureVisible;
  begin
   SendMessage(Control.Handle,LVM_ENSUREVISIBLE,ReadInteger(_Data,null,0),0);
  end;