String in Array zerlegen (Markanter Punkt: ',')

[Luckie]

Kann es sein, dass dein Fehler irgendwo hier

Code:

if IntToStr(php_comment[2]) = 1 then 
      PHPhigh.CommentAttri.Style := fsBold; 
    if IntToStr(php_comment[3]) = 1 then 
      PHPhigh.CommentAttri.Style := fsItalic; 
    if IntToStr(php_comment[4]) = 1 then 
      PHPhigh.CommentAttri.Style := fsUnderline; 
    if IntToStr(php_comment[5]) = 1 then 
      PHPhigh.CommentAttri.Style := fsStrikeOut;

liegt?