1:
2:
3:
4:
5:
6:
7:

var
  sl: TStringList;

begin

  sl := TStringList.Create;
  sl.Text := StringReplace(DeinString, ',', #13 + #10, [rfReplaceAll]);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var 
  sl: TStringList; 
begin 
  sl := TStringList.Create; 
  try
    sl.CommaText := DeinString;
  finally
    sl.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

sl:=TStringList.Create;
        try
          sl.Delimiter:=',';
          sl.DelimitedText:=IniPak;
            for sli := 0 to sl.Count -1 do
              for lbi := 0 to clb1.Count -1 do
                if sl[sli] = clb1.items[lbi] then clb1.Checked[lbi] := true;

        finally
          sl.Free;
        end;