const
  PropNames: array[0..24] of string = (
    'left','top','width','height','align','color',
    'text','caption','strings','visible','enabled','checked','selected',
    'select','fontname','fontcolor','fontsize', 'fontstyle','fontcharset',
    'redraw', 'sendtoback', 'bringtofront', 'setfocus', 'columns', 'columnswidth' );
procedure THIAdjustControls._work_doSet;
var
...
  
   procedure change(ind: integer);
...

      23: begin
           k :=0 ;
           while str <> '' do
            begin
             _str := fparse(str,'|');
             LVColText[k]:= _str;
             inc(k);
            end;
          end;
      24: begin
           k :=0 ;
           while str <> '' do
            begin
             _str := fparse(str,'|');
             LVColWidth[k]:= str2int(_str);
             inc(k);
            end;
          end;