Stringlist nach fehlenden Werten durchsuchen?!?

[shmia]

Delphi-Quellcode:

// minimalen und maximalen Wert feststellen
minWert := MaxInt;
maxWert := MinInt;
for i := 0 to StringListe.count-1 do
begin
   wert := StrToInt(StringListe[i]);
   if wert > maxWert then maxWert := wert
   else if wert < minWert then minWert := Wert;
end;

// prüfen, welchen Werte dazwischen fehlen
for i := minWert+1 to maxWert-1 do
begin
   if StringListe.IndexOf(IntToStr(i)) = -1 then
   begin
      // Wert fehlt
      StringListe.Add(IntToStr(i));
   end;
end;