uses IdStrings var sl: TStringList; str: string; i: Integer; begin str := 'aa,b b,cc...