split script??

Hej jeg har lavet dette split script..

  db_categori := '- Underholdning & Spil,- Edb & Internet,- Kultur & Kunst,- Hobby,- Hus & Have,';

  ar:=1;
  for i:=0 to length(db_categori) do
  begin
  if db_categori[I] = ',' then
  begin
  inc(ar);
  end
  else
  db_categori_array[ar]:=db_categori_array[ar]+db_categori[I];
  end;


db_categori_array er en Array[1 .. 5] of string;

der sker det ...

Key 2,3,4,5

virker fint i min array men

key 1 er tom++ why?