TStringList - listindex out of bounds error

Heys.. jeg er ved at lege lidt med en IRC klient, og i nedenstående splitter jeg en string ved spaces og finder ud af om bruger har skrevet '#' foran kanalnavn. Men når jeg fx skriver "/join #testchan" får jeg en error: "ListIndex out of bounds"

Nogen der kan fortælle hvorfor?! :/

          CmdList := TStringList.Create;
          try
            i := pos(' ', Text);
            while i > 0 do begin
              CmdList.add(Copy(Text, 1, i-1));
              delete(Text, 1, i);
              i := pos(' ', Text);
            end;

            if CmdList[0] = '/join' then
              begin
                s := cmdlist[1];
                if ( (s <> '') and (s[1] = '#') ) then
                  fMainForm.IRC.Join(CmdList[1])
                else
                  fMainForm.IRC.Join('#'+CmdList[1]);
              end;
          finally
            CmdList.Free;   
          end;