Как проверить длину Tstringlist in delphi

Это то, что я пытаюсь сделать. У меня есть Tstringlist для имени. Если имя находится в формате DOE, JOHN, NMI, я хочу, чтобы имя разделилось на 3 разные строки.
Но проблема в том, что если нет среднего инициала. Или Имя. Как будто это может быть просто DOE, тогда последние две строки выходят за рамки. И программа вылетает. Какое решение лучше всего?

var ptname, physname: Tstringlist;

if pos(',',Msg.Grp2[0].ObsReq[0].OrderingProviderFamilyName) > 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