Variablen sortieren

[the_source]

hmm, also ich hab mir das jetzt mal zurechtgelget, aber es ergibt sich ein neues Problem.
ich hatte ja vorher ne schleife, in der für jeden Buchstaben eine if-anweisung befand

Delphi-Quellcode:

   for counter:= 1 to laenge do
    begin
     if UpperCase(s[counter]) = 'A' then
      begin
       countA:= countA + 1;
       countDEF:= countDEF + 1;
      end;
     if UpperCase(s[counter]) = 'B' then
      begin
       countB:= countB + 1;
       countDEF:= countDEF + 1;
      end;

und so weite..

jetzt habe ich diese count-Variablen rausgeschmissen und ein Array von 1 bis 26 erstellt.
jetzt habe ich aber das Problem, dass ich ja ne schleife mit möglichst nur einer if-Anweisung möchte.

Delphi-Quellcode:

   for counter:= 1 to laenge do
    begin
     if UpperCase(s[counter]) = 'A' then
      begin
       countArray[1]:= countArray[1] + 1;
       countDEF:= countDEF + 1;
      end;
     if UpperCase(s[counter]) = 'B' then
      begin
       countArray[2]:= countArray[2] + 1;
       countDEF:= countDEF + 1;
      end;

wie bekomm ichs jetzt hin, dass ich, wenn ich für das countArray einen counter einsetze, auch die Buchstaben in eine Art Liste zusammenfasse. Diese müssen ja sonst immer einzeln angegeben werden.

bin grad, während ich das schreibe, auf die Idee gekommen, das mit Ascii-codes zu machen.
Aber es gibt dann noch ein kleines Problem.

Am Ende werden die einzelnen Einträge Labels zugeordnet.

Delphi-Quellcode:

OutA.Caption:= IntToStr(countA);
  OutB.Caption:= IntToStr(countB);
  OutC.Caption:= IntToStr(countC);

Wie kann ich das nun mit den Namen der Labels automatisieren. Ist zwar nicht überlebenswichtig, wäre aber gut.

[edit=Sharky]Code-Tags in Delphi-Tags geändert. Mfg, Sharky[/edit]