// find non-whitespace character
        iPos := FindFirstNotOf(' ' + TAB + CR + LF, sData);
        if iPos > 0 then
          AStrings.Add(Copy(sData, 1, iPos-1))
        else
          AStrings.Add(sData)