#pas
LVItems[LVCurItem, i] := e.Text;

#pas
LVSetItem(LVCurItem, i, e.Text, LVItemImageIndex[LVCurItem], [], LVItemStateImgIdx[LVCurItem], 0, 0);

#pas
for i := EList.Count - 1 downto 0 do begin
      e := EList.Items[i];
      if Store then                           
        LVSetItem(LVCurItem, i, e.Text, LVItemImageIndex[LVCurItem], [], LVItemStateImgIdx[LVCurItem], 0, 0);
        // LVItems[LVCurItem, i] := e.Text;
      if e.Focused then CurEdit := i + 1;
      e.Free;
      //o := False;
   end;