procedure TListEdit.LVChange;
var e: PControl;
    i: integer;
    //o: boolean;
    //c: Char;
begin
...
      if Store then
        LVItems[LVCurItem, i] := e.Text;
...
end;