procedure THIStringTable.SetColumns;
var lst:PStrList;
    i:word;
    s:string;
begin
   lst := NewStrList;
   lst.text := col;
   if lst.Count > 0 then
    for i := 0 to lst.Count-1 do
     begin
      s := Lst.Items[i] + '=';
      Control.LVColAdd(GetTok(s,'='),taLeft,80);
      if s <> '' then
        Control.LVColWidth[i] := max(0,str2int(s));
     end;
   lst.Free;
end;

procedure ThiStringTable.SetColumns; //13.05.2017 Tad
var lst:PStrList;
    i:word;
    s:string;
begin
   lst := NewStrList;
   lst.text := col;
   if lst.Count > 0 then
    for i := 0 to lst.Count-1 do
     begin
      s := Lst.Items[i] + '=';
      Control.LVColAdd(GetTok(s,'='),taLeft,80);
      if s <> '' then Control.LVColWidth[i] := str2int(GetTok(s,'='));
      if s <> '' then Control.LVColAlign[i] := TTextAlign(str2int(s));  
     end;
   lst.Free;
end;