Uparte wczytywanie do ListBox

Mam problem (jak zwykle :-) ). napisałem taki kod:

var
SR: TSearchRec;
ListaPlikow : TStringList;
Found : Integer;
//...............................................
ListaPlikow := TStringList.Create;
Found := FindFirst('C:Komputery*.ini', not faDirectory, SR);
while Found = 0 do
begin
ListaPlikow.Add(SR.name);
Found := FindNext(SR);
karta:=TINIFile.Create('C:Serwis\Serwisy\Komputery'+SR.Name);
ListBox1.Items.Add(Karta.ReadString('PRZYJECIE','Komputer',Zawartosc));
end;
FindClose(SR);
ListaPlikow.Free;

Ma to za zadanie wczytywać do list-boksa określone dane ze wszystkich plików ini w podanym folderze. No i robi to. Ale nie tak jak powinno. Liczba pozycji jest w porządku, lecz nie zawartość. Brak zawartości pierwszego pliku a ostatni jest wczytany podwójnie ...
Gdzie zrobiłem błąd? Bo pomysły mi się już skończyły...
Heelp!!!! [???]

while Found = 0 do
begin
ListaPlikow.Add(SR.name);
karta:=TINIFile.Create('C:Serwis\Serwisy\Komputery'+SR.Name);
ListBox1.Items.Add(Karta.ReadString('PRZYJECIE','Komputer',Zawartosc));
Found := FindNext(SR); // !!!!
end;

Hmm - może tak ??

O ja tępy i ślepy ...

[wstyd] [wstyd] [wstyd] [wstyd] [wstyd]

Dzięki!!!