procedure THIStringTable._work_doAddColumn; // Tad 19.09.2016
var FLeft,S:String;  
begin
  S := ToString(_Data);
  IF pos('=',S)=0 then  Control.LVColAdd(S,taLeft,80)
  else 
  begin
    FLeft := GetTok(S,'=');
    Control.LVColAdd(FLeft,taLeft,Str2Int(S));
  end;
end;