Problem mit Combobox

[uwewo]

Ok, dann nochmal anders

Delphi-Quellcode:

begin 
ComboBox.Items.Clear;//Alle Einträge entfernen 

K:=0;
{ alle Dateien mit Endung SAV suchen } 
  if FindFirst(dir+'\DATA\save\'+'*.sav', $23, Search)= 0 then 
    repeat 
      ComboBox.Items.Add(Search.Name);
       {$I-}
           assignfile(figdat, dir+'\DATA\save\'+Search.Name); 
           reset(figdat); 
           read(figdat, FIG); 
           Laden1.Chara.Items.Add(FIG.PER.NI+', Level '+inttostr(FIG.DAT.LVL)); 
           closefile(figdat); 
       {$I+} 
           inc(k);
    until (K >= 10) or (FindNext(Search) <> 0); 
end;

ich kann ohne kompletten Code, das auch nicht besser , oder ich verstehe alles falsch

Uwe