title: How to check length of Tstringlist in delphi
body: <p>This is what I am trying to do.  I have a Tstringlist, for a name.  If the name is in a format DOE, JOHN, NMI, I want it to split the name into 3 different strings.<br>
  But the problem is, what if there is no middle initial.  Or First name.  Like it could be just DOE,   Then the last two lines are out of bounds.  And the program crashes.  What is the best solution?</p>
  
  <pre><code>var ptname, physname: Tstringlist;
  
  if pos(',',Msg.Grp2[0].ObsReq[0].OrderingProviderFamilyName) &gt; 0 then // split it if it has a comma
  begin
    physname := TstringList.Create;
    physname.CommaText := Msg.Grp2[0].ObsReq[0].OrderingProviderFamilyName;
    Parameters.ParamByName('@OrderingLastNameOBR16').Value := physname[0];
    Parameters.ParamByName('@OrderingFirstNameOBR16').Value := physname[1];
    Parameters.ParamByName('@OrderingMiddleNameOBR16').Value := physname[2];
    physname.Free;
  end
  </code></pre>