const
  alf = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
.....

procedure THIStringTableEx.Add;
var
  s:string;
  i:byte;

  procedure AddColums;
  var
    j: integer; dt: TData;
  begin
    for j := 1 to Length(s) do
      if s[j] = _prop_StrDelimiter then
        Control.LVColAdd(alf[Control.LVColCount+1],taLeft,80);
  end;

begin
  if _prop_StrDelimiter = '' then
   _prop_StrDelimiter := ' ';
  s := Data + _prop_StrDelimiter;

  if Control.LVColCount = 0 then
    AddColums;