Feste Positionen in Stringlisten

[c.Stetter]

Mein Problem ist folgendes. Es sind maximal 16 Teilnehmer, sind weniger Teilnehmer vorhanden müssen Freilose gesetzt werden, die aber an bestimmten Postionen stehen müssen.
Das Programm wird zu einem späteren Zeitpunkt erweitert, d.h. das dann z.b. 64 Teilnehmer vorhanden sind.

Beispiel :

Teilnehmer 38 (benötigtes System 64er)
Freilose 26 (es sind bis zu 29 Freilose möglich)

Das heißt :

Delphi-Quellcode:

  case aFreilose of
   0 : begin
         for i := 1 to aTeilnehmer do
           aStringListe.Add('Teilnehmer ' + IntToStr(i));
       end;
   1 : begin
         for i := 1 to aTeilnehmer do
           aStringListe.Add('Teilnehmer ' + IntToStr(i));
         aStringListe.Add('Freilos');
         aStringListe.ExChange(Letzte Position, 1)
       end;
   2 : begin
       end;
   ..
   ..
   26 : begin
         for i := 1 to aTeilnehmer do
           aStringListe.Add('Teilnehmer ' + IntToStr(i));
         for j := 1 to 26 do      
           aStringListe.Insert(Letzte Position + j, 'Freilos');

         aStringListe.ExChange(Letzte Position, 1);
         aStringListe.ExChange(Letzte Position - 1 , 10);

         usw. bis alles Freilose positioniert sind

       end;
   ..
   ..
   29 : begin
        end;
  end;

Es würde dann einen ziemlich langen quellcode geben.

Ich hoffe, daß dieses Beispiel besser ist, welches mein Problem dastellt.

Danke für deine Antwort.