Recently used strings

[LkZ]

Hi! ich hab eine funktion geschrieben(funktioniern tut sie noch nicht), die die "zuelezt verwendeten strings" in einer Liste anzeigt. Die strings, die in die Lisre eingefügt werden, haben alle einen "Counter",d.h. die strings bekommen eine interne Zahl mitgegeben, wenn sie ausgewählt werden. Dieser interne/unsichtbare Counter dient dazu dar, dass man später die Items in der Liste nach "meist verwendete strings" sortieren kann.
Hier der Code:

Delphi-Quellcode:

function Recent(s:string):string;
var Vorhanden:boolean;
    k:Integer;
    c:array[0..103] of Integer; {insgesamt/max. 103 strings, die in die Liste eingefägt werden können}
begin
  vorhanden:=false;
    for k:=0 to Detail2.ListBox1.Items.Count-1 do {Liste durchgehen}
     begin
      if s=Detail2.ListBox1.Items.Strings[k] then 
      begin
       vorhanden :=true;                          {ist schon in der Liste vorhanden}
       c[k]:=c[k]+1;                              {den Counter eins erhöhen,}
       exit;                                      {nicht in die Liste einfügen}
     end;                                         {und raus}
     end;
   if vorhanden=false then                        {nicht vorhanden}
   begin
    c[i]:=1;                                      {hier weiss ich nicht mehr weiter}
    inc(i);                                       {nächstes Feld und DANN soll das nächste Feld auf 1 gesetzt werden}
   end;
 Detail2.ListBox1.Items.Add(s);                   {neu in die Liste einfügen}
 Result:=s;
end;

Kann sein, dass dieser Code ziemlich unprofessionell zu euch scheint; ich bin immer offen für neues

Danke MfG LkZ