Delphi springer et udtræk over?

Det er lige godt pokkes, men Delphi er begyndte at springe et ADO-udtræk over når jeg henter fra en Accessdatabase.

Og det er et meget simpelt udtræk:

----------------

procedure TForm1.Updater;
var
Temp,Teller: integer;
begin

  Temp := 1;

  ADODataset.CommandText := 'select * from kalender';
  ADODataset.Open;

  While not ADODataSet.Eof do begin
  Lars[Temp] := ADODataSet.FieldByName('Lars').AsString;

  showmessage(inttostr(temp)+' '+Lars[Temp]);
  ADODataSet.Next;
  Inc(Temp);
end;

----------------

I databasen er der skrevet noget på linierne 1, 10, 40, 41, 42, 80, 81, 82, 83, 91 og 92. Der er i alt 366 linier (skudår).

Den der showmessage skriver alt helt korrekt, dvs. "1 bilservice", "10 kunder", "40 kursus", "41 kursus", "42 kursus" men når der kommer til 83 så skriver den kun tallet 83 fra Temp og ikke det som står i feltet, og på næste popup skriver den så 84 samt det der står i felt 83. Det giver overhovedet ingen mening. Det virker som om den lige laver en ekstra Inc(Temp) efter 82, men ????