var

  MyDictionary: TDictionary<string, TStringList>;

begin

  MyDictionary := TDictionary<string, TStringList>.Create;

 

  // Ваш код для перебора списка строк1 и записи в словарь, например:

  for i := 0 to List1.Count - 1 do

  begin

    // Получите третий параметр

    ThirdParam := ExtractThirdParam(List1[i]);

    

    // Добавление в словарь

    if not MyDictionary.ContainsKey(ThirdParam) then

      MyDictionary.Add(ThirdParam, TStringList.Create);

 

    MyDictionary[ThirdParam].Add(List1[i]);

  end;

 

  // Не забудьте освободить память в конце

  for Value in MyDictionary.Values do

    Value.Free;

  MyDictionary.Free;

end;