global:
 TParas = class(TObject)
   {verschiedene}
 end;

 TSubParameterList = class(TObjectList)
   {enthält Elemente vom Typ TParas}
 end;

 TParameterList = class(TObjectList)
   {enthält Elemente vom Typ TSubParameterList}
 end;

 TParameters = class(TObjectList)
   {enthält Elemente vom Typ TParameterList}
 end;

  var
    Parameters : TParameters;



procedure Sortierwas(filename : string);
var
  localpar : TParas;
  inifile : TInifile;

begin
  ParaFile := TIniFile.Create(filename);
  localpar := TParas.Create;
  Parameters := TParameters.Create;

  {Anlegen der Parameterlisten, nicht weiter wichtig}


  //Einlesen der Parameter

  repeat
    s := ParaFile.ReadString('Paras','Para' + intToStr(i),'');
    if s <> '' then
    begin
      localpar := ParaSort(s);
      Parameters.Items[localpar.ParaGroup].Items[0].add(TParas.Create);
      application.ProcessMessages;
      j := Parameters.Items[localpar.ParaGroup].Items[0].Count - 1;
      application.ProcessMessages;
      Parameters.Items[localpar.ParaGroup].Items[0].Items[j] := localpar;
      {hier die erste Debugausgabe ob die Übergabe ok ist...}
      ShowMessage(Parameters.Items[localpar.ParaGroup].Items[0].Items[j].name);
    end;
  until s = '';

  ParaFile.Free;
  localpar.Free;

  {hier die zweite Debugausgabe ob die Übergabe ok ist...}
  for j := 0 to (result.Items[1].Items[0].Count) - 1 do
  begin
    ShowMessage(result.Items[1].Items[0].Items[j].name);
  end;
end;