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

        for ValueName in dict.Values do
        begin
          for i := 0 to Valuename.Count - 1 do
        write('Values are : '+ Valuename[i]);
        writeln;
        end;					

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

begin
  dict := TDictionary<String, TStringlist>.Create;
  parsefileandfilldict;
  for ValueName in dict.Values do
        begin
          for i := 0 to Valuename.Count - 1 do
        write('Values are : '+ Valuename[i]);
        writeln;
        end;
  .
  .
  .
end.					

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

if AnsiStartsStr('name', splitarray[0]) then
      begin
        split(' ', splitarray[0], subsplit1);
        splitarray[0]:=subsplit1[1];
        split(',', splitarray[1], subsplit2);
        dict.Add(splitarray[0], subsplit2);

...
splitarray.Free;
subsplit1.Free;
subsplit2.Free;
end;