Const
  Brackets = ['(',')','[',']','{','}'];
  StdWordDelims = [#0..' ',',','.',';','/','\',':','''','"','`'] + Brackets;
  CryogenWordDelims = ['-', '+', '*', '^', '@'] + StdWordDelims;

Function WordCount(Const S: String; Const WordDelims: TCharSet): Integer;
                                                                       Register;
Var
  SLen, I: Cardinal;
Begin
  Result := 0;
  I := 1;
  SLen := Length(S);
  While I <= SLen Do
  Begin
    While (I <= SLen) And (S[I] In WordDelims) Do Inc(I);
    If I <= SLen Then Inc(Result);
    While (I <= SLen) And Not(S[I] In WordDelims) Do Inc(I);
  End;
End;

Function WordPosition(Const N: Integer; Const S: String;
                      Const WordDelims: TCharSet): Integer; Register;
Var
  Count, I: Integer;
Begin
  Count := 0;
  I := 1;
  Result := 0;
  While (I <= Length(S)) And (Count <> N) Do
  Begin
    While (I <= Length(S)) And (S[I] In WordDelims) Do Inc(I);
    If I <= Length(S) Then Inc(Count);
    If Count <> N Then
      While (I <= Length(S)) And Not (S[I] In WordDelims) Do Inc(I)
    Else Result := I;
  End;
End;

Function ExtractWord(N: Integer; Const S: String;
                     Const WordDelims: TCharSet): String; Register;
Var
  I: Integer;
  Len: Integer;
Begin
  Len := 0;
  I := WordPosition(N, S, WordDelims);
  If I <> 0 Then
    While (I <= Length(S)) And Not(S[I] In WordDelims) Do
    Begin
      Inc(Len);
      SetLength(Result, Len);
      Result[Len] := S[I];
      Inc(I);
    End;
  SetLength(Result, Len);
End;

Function ExtractWordPos(N: Integer; Const S: String; Const WordDelims: TCharSet;
                        Var Pos: Integer): String; Register;
Var
  I, Len: Integer;
Begin
  Len := 0;
  I := WordPosition(N, S, WordDelims);
  Pos := I;
  If I <> 0 Then
    While (I <= Length(S)) And Not(S[I] In WordDelims) Do
    Begin
      Inc(Len);
      SetLength(Result, Len);
      Result[Len] := S[I];
      Inc(I);
    End;
  SetLength(Result, Len);
End;

Function ExtractDelimited(N: Integer; Const S: String;
                          Const Delims: TCharSet): String; Register;
Var
  CurWord: Integer;
  I, Len, SLen: Integer;
Begin
  CurWord := 0;
  I := 1;
  Len := 0;
  SLen := Length(S);
  SetLength(Result, 0);
  While (I <= SLen) And (CurWord <> N) Do
  Begin
    If S[I] In Delims Then Inc(CurWord)
    Else
      If CurWord = N - 1 Then
      Begin
        Inc(Len);
        SetLength(Result, Len);
        Result[Len] := S[I];
      End;
    Inc(I);
  End;
End;

Function ExtractSubstr(Const S: String; Var Pos: Integer;
                       Const Delims: TCharSet): String; Register;
Var
  I: Integer;
Begin
  I := Pos;
  While (I <= Length(S)) And Not (S[I] In Delims) Do Inc(I);
  Result := Copy(S, Pos, I - Pos);
  If (I <= Length(S)) And (S[I] In Delims) Then Inc(I);
  Pos := I;
End;

Var
  I: Integer;
  Temp: String;
Begin
  For I := 1 To WordCount(MyStr, [',']) Do
  Begin
    Temp := ExtractWord(I, MyStr, [',']);
    bla bla bla с Temp
  End;
End;

program Proga;

{$APPTYPE CONSOLE}

uses
  SysUtils, StrUtils, Classes;

function GetParamzz(s:string;var ss:TStringList):cardinal;
var
  i,j,k,n:cardinal;
begin
  k:=0;
  j:=0;
  n:=length(s);
  repeat
    i:=posex(',',s,j+1);
    if i=0 then
      i:=n+1;
    ss.Add(copy(s,j+1,i-j-1));
    j:=i;
    inc(k);
  until j>n;
  result:=k;
end;

var
  a:string;
  b:TStringList;
  c:cardinal;

begin
  b:=TStringList.Create;
  readln(a);
  writeln('Found '+inttostr(GetParamzz(a,b))+' parameters:');
  for c:=0 to b.Count-1 do
    writeln(b.Strings[c]);
  b.Free;
end.

function Q_CountOfWords(const S: string; const Delimiters: TCharSet): Integer;
asm
        PUSH    EBX
        TEST    EAX,EAX
        JE      @@q0
        MOV     ECX,[EAX-4]
        MOV     EBX,EAX
        DEC     ECX
        JS      @@qz
        PUSH    ESI
        XOR     EAX,EAX
        JMP     @@lp2
@@iw:   INC     EAX
        DEC     ECX
        JS      @@ex
@@lp1:  MOVZX   ESI,BYTE PTR [EBX+ECX]
        BT      [EDX],ESI
        JC      @@nx
        DEC     ECX
        JNS     @@lp1
@@ex:   POP     ESI
        POP     EBX
        RET
@@lp2:  MOVZX   ESI,BYTE PTR [EBX+ECX]
        BT      [EDX],ESI
        JNC     @@iw
@@nx:   DEC     ECX
        JNS     @@lp2
        POP     ESI
        POP     EBX
        RET
@@qz:   XOR     EAX,EAX
@@q0:   POP     EBX
end;

function Q_GetWordN(OrdN: Integer; const S: string; const Delimiters: TCharSet): string;
var
  I,J,N: Integer;
  L: LongWord;
  P: PChar;
  A: Boolean;
begin
  L := Length(S);
  P := Pointer(S);
  A := False;
  N := 1;
  for I := 1 to L do
  begin
    if not (P^ in Delimiters) then
    begin
      if not A then
      begin
        if N = OrdN then
        begin
          N := L+1;
          Inc(P);
          for J := I+1 to L do
          begin
            if P^ in Delimiters then
            begin
              N := J;
              Break;
            end;
            Inc(P);
          end;
          Result := Copy(S,I,N-I);
          Exit;
        end;
        A := True;
        Inc(N);
      end;
    end else
      A := False;
    Inc(P);
  end;
  Result := '';
end;

StrList:=TStringList.Create;
StrList.CommaText:=S;
ListBox1.Items.Assign(StrList);

Function IntToBin(Value: Longint; Digits, Spaces: Integer): String; Register;
Begin
  Result := EmptyStr;
  If Digits > 32 Then Digits := 32;
  While Digits > 0 Do
  Begin
    If (Digits Mod Spaces) = 0 Then Result := Result + ' ';
    Dec(Digits);
    Result := Result + IntToStr((Value Shr Digits) And 1);
  End;
End;

If (Digits Mod Spaces) = 0 Then Result := Result + ' ';

((Value Shr Digits) And 1);